don't die when trying to check arity of a nonexistent function

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))