summaryrefslogtreecommitdiff
path: root/tests/test-vikalpa.scm
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2021-09-16 15:03:28 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2021-09-16 15:03:28 +0900
commita09b56609dfd645bdaa97b6d6b9ffee06892e8e4 (patch)
tree35b487fb000e46d16b2791ea8d90b75b7a5ac84c /tests/test-vikalpa.scm
parentfd0554fcd9cf83d126355464f4e9719ed7338a95 (diff)
Fix `if` syntax.
* vikalpa.scm (rewrite/eval): Fix `if` syntax.
Diffstat (limited to 'tests/test-vikalpa.scm')
-rw-r--r--tests/test-vikalpa.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/test-vikalpa.scm b/tests/test-vikalpa.scm
index 961d683..644cb6a 100644
--- a/tests/test-vikalpa.scm
+++ b/tests/test-vikalpa.scm
@@ -418,4 +418,10 @@
(test-equal '()
(system-check (test)))
+(test-equal '(result/expr (quote b))
+ (system-eval (test) '(if #f 'a 'b)))
+
+(test-equal '(result/expr (quote b))
+ (system-eval (test) '(if '#f 'a 'b)))
+
(test-end "test-vikalpa")