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. --- tests/test-vikalpa.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'tests/test-vikalpa.scm') 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") -- cgit v1.2.3