From b0c912b16c2621e7699831bd426cd277ca5be3eb Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Thu, 16 May 2024 13:57:23 -0400 Subject: [PATCH] don't die when trying to check arity of a nonexistent function --- janet/validate.janet | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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))