twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

bugfixes

Browse Source
This commit is contained in:
Scott Richmond 2024-05-19 18:23:34 -04:00
parent a399669197
commit 2415f3d437
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
janet/validate.janet
View File

@ -345,6 +345,7 @@ Deferred until a later iteration of Ludus:
(def the-fn (resolve-name ctx (fn-word :data))) (def the-fn (resolve-name ctx (fn-word :data)))
(when (not the-fn) (break validator)) (when (not the-fn) (break validator))
(when (= :function (type the-fn)) (break validator)) (when (= :function (type the-fn)) (break validator))
(when (= :cfunction (type the-fn)) (break validator))
(print "fn name: " (the-fn :name)) (print "fn name: " (the-fn :name))
(def arities (the-fn :arities)) (def arities (the-fn :arities))
(print "arities: ") (print "arities: ")
@ -625,7 +626,7 @@ Deferred until a later iteration of Ludus:
(default ctx @{}) (default ctx @{})
(def validator (new-validator ast)) (def validator (new-validator ast))
(def base-ctx @{:^parent ctx}) (def base-ctx @{:^parent ctx})
(set (validator :ctx) ctx) (set (validator :ctx) base-ctx)
(validate validator)) (validate validator))
(defn foo [] :foo) (defn foo [] :foo)