don't die when trying to check arity of a nonexistent function
This commit is contained in:
parent
d5f593b0f3
commit
b0c912b16c
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user