tisp

commit c11b08c399998d88490baff66f7e87c49c2c3650
parent 0474366cf9a8b99192fce341644ce601f812833f
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Fri, 28 Jun 2019 13:05:29 -0700

Logic functions return value of true argument

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

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tibs/lib.tsp b/tibs/lib.tsp
@@ -65,13 +65,13 @@
   (if x () t))
 (define and ; Use a macro so arguments aren't evaluated all at once
   (macro (a b)
-         (list 'if a (list 'if b t ()) ())))
+         (list 'if a b ())))
 (define nand
   (macro (a b)
          (list 'not (list 'and a b))))
 (define or
   (macro (a b)
-         (list 'if a t (list 'if b t ()))))
+         (list 'if a a b)))
 (define nor
   (macro (a b)
          (list 'not (list 'or a b))))