tisp

commit 479672eec5349be018672c27ea9c7341e2dcca72
parent 6c19b7d5ebce15e627069f23316023ec15b38575
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Sat,  7 Sep 2019 14:37:50 -0700

Add macro type test

Diffstat:
tibs/lib.tsp
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/tibs/lib.tsp b/tibs/lib.tsp
@@ -41,6 +41,7 @@
 (define (symbol? x)    (= (type x) "symbol"))
 (define (primitive? x) (= (type x) "primitive"))
 (define (function? x)  (= (type x) "function"))
+(define (macro? x)     (= (type x) "macro"))
 (define (pair? x)      (= (type x) "pair"))
 (define  cons?          pair?)
 (define (list? x)      (and (pair? x) (pair? (cdr x))))