tisp

commit 66a687024fcce8d66d22484b37235fcaa9db4de4
parent 511cb19313aaa9feb3680417769d513401b6b680
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Fri,  3 Jan 2020 16:55:51 -0800

Fix assert macro w/ quasiquote

Diffstat:
tibs/lib.tsp
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tibs/lib.tsp b/tibs/lib.tsp
@@ -59,8 +59,8 @@
 (define (number? x)    (or (rational? x) (decimal? x)))
 
 (defmacro (assert condition)
-  (list 'unless condition
-        (list error ''assert "assertion " 'condition " failed")))
+  `(unless ,condition
+        (error 'assert "assertion " ',condition " failed")))
 
 ;;; Control Flow
 ; TODO if d = pair and car d = else use cdr d