tisp

commit 921e04f7164d3bfb31ba6f2d621bb228071e335c
parent fa6667605a57517b97fce6c196098567171b2cd4
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Sat, 24 Aug 2019 00:10:37 -0700

Fix true? function

Diffstat:
tibs/lib.tsp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tibs/lib.tsp b/tibs/lib.tsp
@@ -42,7 +42,7 @@
 (define (function? x)  (= (type x) "function"))
 (define (pair? x)      (= (type x) "pair"))
 (define (boolean? x)   (or (= x t) (nil? x)))
-(define (true? x)      (or (= x t) (nil? x)))
+(define (true? x)      (= x t))
 (define  false?         nil?)
 (define (rational? x)  (or (integer? x) (ratio? x)))
 (define (number? x)    (or (rational? x) (decimal? x)))