diff --git a/janet/validate.janet b/janet/validate.janet index a3f7a48..7b8f550 100644 --- a/janet/validate.janet +++ b/janet/validate.janet @@ -309,6 +309,7 @@ Imports are for a later iteration of Ludus: (def data (ast :data)) (def fn-word (first data)) (def the-fn (resolve-name ctx (fn-word :data))) + (when (not the-fn) (break validator)) (print "fn name: " (the-fn :name)) (def arities (the-fn :arities)) (print "arities: ") @@ -588,14 +589,10 @@ Imports are for a later iteration of Ludus: (def validator (new-validator ast)) (validate validator)) -# (do -(comment +(do +# (comment (def source ` -fn bar () -> :bar -fn foo () -> match :foo with { - a -> bar () - b -> :baz -} + `) (def scanned (s/scan source)) (def parsed (p/parse scanned))