tisp

commit 7509006b42ebe497f58b3587360d107ef51a09e2
parent 9b71bb00e5a6ba950b785d4df698117ecb845ac6
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Sat, 11 Jul 2020 18:10:55 -0700

Don't quote t when printing

t is self evaluating so a quote is not needed

Diffstat:
tibs/lib.tsp
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/tibs/lib.tsp b/tibs/lib.tsp
@@ -378,6 +378,7 @@
   (map (lambda (s)
          (cond
            ((string? s) (print "\"" s "\""))
+           ((true? s)   (print s)) ; don't print 't since it's self evaluating
            ((symbol? s) (print "'" s))
            ((pair? s)   (print "'" s))
            (else        (print s))))