diff --git a/lib/hyperscript/parser.sx b/lib/hyperscript/parser.sx index 4cde77ee..9723d9a3 100644 --- a/lib/hyperscript/parser.sx +++ b/lib/hyperscript/parser.sx @@ -137,7 +137,7 @@ (when (and (= (tp-type) "op") (= (tp-val) "!")) (adv!)) (list (quote beep!) (parse-expr)))) ((and (= typ "keyword") (= val "not")) - (do (adv!) (list (quote not) (parse-expr)))) + (do (adv!) (list (quote hs-falsy?) (parse-atom)))) ((and (= typ "keyword") (= val "no")) (do (adv!) (list (quote no) (parse-expr)))) ((and (= typ "keyword") (= val "eval")) diff --git a/shared/static/wasm/sx/hs-parser.sx b/shared/static/wasm/sx/hs-parser.sx index 4cde77ee..9723d9a3 100644 --- a/shared/static/wasm/sx/hs-parser.sx +++ b/shared/static/wasm/sx/hs-parser.sx @@ -137,7 +137,7 @@ (when (and (= (tp-type) "op") (= (tp-val) "!")) (adv!)) (list (quote beep!) (parse-expr)))) ((and (= typ "keyword") (= val "not")) - (do (adv!) (list (quote not) (parse-expr)))) + (do (adv!) (list (quote hs-falsy?) (parse-atom)))) ((and (= typ "keyword") (= val "no")) (do (adv!) (list (quote no) (parse-expr)))) ((and (= typ "keyword") (= val "eval"))