recovery from empty () call

This commit is contained in:
XeroOl 2024-03-26 14:12:57 -05:00
parent 7c81ffcbb3
commit a1c4e84910

View File

@ -241,10 +241,15 @@ identifiers are declared / referenced in which places."
(= 1 (msg:find "malformed multisym"))
(= 1 (msg:find "expected at least one pattern/body pair"))
(= 1 (msg:find "module not found"))
(when (and (sequence? ?ast)
(= 1 (% (length ?ast ) 2))
(= 1 (msg:find "expected even number of name/value bindings")))
(when (and (= 1 (msg:find "expected even number of name/value bindings"))
(sequence? ?ast)
(= 1 (% (length ?ast) 2)))
(table.insert ?ast (sym :nil))
true)
(when (and (= 1 (msg:find "expected a function, macro, or special to call"))
(sequence? ?ast)
(= (length ?ast) 0))
(table.insert ?ast (sym :do))
true)))