From b1b7d863b5b27bad8e1f6bfa9c8af1bffeeae010 Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Sun, 6 Jul 2025 22:21:59 +0200
Subject: [PATCH] Fix parser for "if <variable name> then"

---
 wip-duuqnd/user-side-compiler/parser.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))