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 /tests | |
parent | fd0554fcd9cf83d126355464f4e9719ed7338a95 (diff) |
Fix `if` syntax.
* vikalpa.scm (rewrite/eval): Fix `if` syntax.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/test-vikalpa-equal-t-nil.scm | 3 | ||||
-rw-r--r-- | tests/test-vikalpa.scm | 6 |
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/test-vikalpa-equal-t-nil.scm b/tests/test-vikalpa-equal-t-nil.scm index 251fd10..f3ce61f 100644 --- a/tests/test-vikalpa-equal-t-nil.scm +++ b/tests/test-vikalpa-equal-t-nil.scm @@ -429,4 +429,7 @@ (test-equal '() (system-check (test))) +(test-equal '(result/expr (quote b)) + (system-eval (test) '(if 'nil 'a 'b))) + (test-end "test-vikalpa-equal-t-nil") 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") |