diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2021-09-16 15:03:28 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2021-09-16 15:03:28 +0900 |
| commit | a09b56609dfd645bdaa97b6d6b9ffee06892e8e4 (patch) | |
| tree | 35b487fb000e46d16b2791ea8d90b75b7a5ac84c /vikalpa.scm | |
| parent | fd0554fcd9cf83d126355464f4e9719ed7338a95 (diff) | |
Fix `if` syntax.
* vikalpa.scm (rewrite/eval): Fix `if` syntax.
Diffstat (limited to 'vikalpa.scm')
| -rw-r--r-- | vikalpa.scm | 7 |
1 files changed, 4 insertions, 3 deletions
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 |