tisp

commit 2d5a84c1edd7cb59198bd65723922c28e456072f
parent 7dede16ec434289726bade845f1e10b2ae681a9f
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Sun, 27 Oct 2019 12:52:11 -0700

Add do0, evaluate arguments returning first result

Diffstat:
tibs/lib.tsp
 | 
2
++

1 file changed, 2 insertions(+), 0 deletions(-)
diff --git a/tibs/lib.tsp b/tibs/lib.tsp
@@ -94,6 +94,8 @@
     (cons (car lst) (apply list* (cdr lst)))
     (car lst)))
 
+(define (do0 . body) (car body))
+
 (define (length lst)
   (recur f ((lst lst) (x 0))
          (if lst