Fix parser for "if <variable name> then"

This commit is contained in:
John Lorentzson 2025-07-06 22:21:59 +02:00
parent 5d9932637d
commit b1b7d863b5

View file

@ -295,7 +295,7 @@ parser's debug output.")
(peek-token)))) (peek-token))))
(make-instance 'node-conditional (make-instance 'node-conditional
:source *syntax-source* :source *syntax-source*
:test (transform test 'node-expr) :test test
:then (transform then 'node) :then (transform then 'node)
:else (if (null else) nil :else (if (null else) nil
(transform else 'node)))) (transform else 'node))))