tisp

commit 9b71bb00e5a6ba950b785d4df698117ecb845ac6
parent 6b97b8a6475917c3db5f9f0da3a470abb42392e9
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Tue,  2 Jun 2020 00:34:53 -0700

Add run function to evaluate and print tisp file

Diffstat:
tibs/lib.tsp
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/tibs/lib.tsp b/tibs/lib.tsp
@@ -367,6 +367,7 @@
     (* n (! (- n 1)))))
 
 ;;; IO
+(define (run file) (eval (parse (read file))))
 (define (print . str) (apply write (list* 'stdout nil str)))
 (define (newline . file)
   (if (or (nil? file) (nil? (cdr file)))