tisp

tiny lisp
git clone git://edryd.org/tisp
Log | Files | Refs | LICENSE

commit a91231b194cabb4295713beda6bd8697a1d65429
parent 26b5e2d2f527d9246a92a7e5ba2ba8f75429dd9e
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Wed, 17 Apr 2019 17:47:06 -0700

Add apply function, allow many arguments to disp

Diffstat:
tibs/lib.tsp | 4+++-
1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tibs/lib.tsp b/tibs/lib.tsp @@ -61,6 +61,8 @@ (define (not x) (cond (x ()) (t t))) (define (list . rest) rest) +(define (apply fn args) + (eval (cons fn args))) (define e (exp 1.)) (define (root b p) (pow b (/ 1 p))) @@ -76,7 +78,7 @@ (t (* n (! (- n 1)))))) (define (newline) (print "\n")) -(define (disp x) (print x) (newline)) +(define (disp . x) (apply print x) (newline)) (define (disp-string str) (cond ((string? str) (print "\"" str "\""))