parse fn forward declarations

janet/parser.janet

@@ -786,7 +786,7 @@
    (def data (case (-> parser current type)
     :lbrace (fn-clauses 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})
   ([err] err)))
 
@@ -1130,7 +1130,9 @@
 (do
 # (comment
 (def source `
-print! ("hello")
+fn foo
+fn bar
+fn () -> :baz
 `)
 (def scanned (s/scan source))
 (print "\n***NEW PARSE***\n")