From a09b56609dfd645bdaa97b6d6b9ffee06892e8e4 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Thu, 16 Sep 2021 15:03:28 +0900 Subject: Fix `if` syntax. * vikalpa.scm (rewrite/eval): Fix `if` syntax. --- vikalpa.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'vikalpa.scm') diff --git a/vikalpa.scm b/vikalpa.scm index 96a2c17..dbf032b 100644 --- a/vikalpa.scm +++ b/vikalpa.scm @@ -719,9 +719,10 @@ (let ((test/result (eval (result/expr (if-form-test expr))))) (if (result/error? test/result) test/result - (if (expr-unquote (result/expr-expr test/result)) - (eval (result/expr (if-form-then expr))) - (eval (result/expr (if-form-else expr))))))) + (if (equal? (result/expr-expr test/result) + (false)) + (eval (result/expr (if-form-else expr))) + (eval (result/expr (if-form-then expr))))))) ((variable? expr) (result/error 'eval 'variable-found expr)) (else -- cgit v1.2.3