twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

parse fn forward declarations

Browse Source
This commit is contained in:
Scott Richmond 2024-06-04 11:17:25 -04:00
parent 3903f10c8d
commit d0a6cdbf54
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
janet/parser.janet
View File

@ -786,7 +786,7 @@
(def data (case (-> parser current type) (def data (case (-> parser current type)
:lbrace (fn-clauses parser) :lbrace (fn-clauses parser)
:lparen (fn-simple parser) :lparen (fn-simple parser)
(panic parser (string "expected clause or clauses, got " (-> current parser type))))) :nothing))
@{:type :fn :name name :data data :token origin}) @{:type :fn :name name :data data :token origin})
([err] err))) ([err] err)))
@ -1130,7 +1130,9 @@
(do (do
# (comment # (comment
(def source ` (def source `
print! ("hello") fn foo
fn bar
fn () -> :baz
`) `)
(def scanned (s/scan source)) (def scanned (s/scan source))
(print "\n***NEW PARSE***\n") (print "\n***NEW PARSE***\n")