This commit is contained in:
Scott Richmond 2024-05-15 12:33:34 -04:00
parent 399f1fd4c7
commit e0919e771d

View File

@ -180,7 +180,7 @@ Imports are for a later iteration of Ludus:
(array/push (validator :errors) (array/push (validator :errors)
{:node kw-type :msg "unknown type"})) {:node kw-type :msg "unknown type"}))
(set (validator :ast) word) (set (validator :ast) word)
(pattern word)) (pattern validator))
(defn- pattern* [validator] (defn- pattern* [validator]
(print "PATTERN*") (print "PATTERN*")