diff --git a/wip-duuqnd/user-side-compiler/parser.lisp b/wip-duuqnd/user-side-compiler/parser.lisp index 824b6ee..c38eec3 100644 --- a/wip-duuqnd/user-side-compiler/parser.lisp +++ b/wip-duuqnd/user-side-compiler/parser.lisp @@ -295,7 +295,7 @@ parser's debug output.") (peek-token)))) (make-instance 'node-conditional :source *syntax-source* - :test (transform test 'node-expr) + :test test :then (transform then 'node) :else (if (null else) nil (transform else 'node))))