tisp

commit edca12988cdedfc5846ad8ed071b2ce02e5cc4d6
parent 5a0a3260d386f7d257009b80a3172ebc2893bc00
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Mon, 23 Sep 2019 23:47:55 -0700

Fix apply evaluating arguments twice

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

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/tibs/lib.tsp b/tibs/lib.tsp
@@ -99,7 +99,9 @@
       (nth (- i 1) (cdr lst)))))
 
 (define (apply fn args)
-  (eval (cons fn args)))
+  (eval (map (lambda (x)
+               (list 'quote x))
+             (cons fn args))))
 (define (foreach args fn)
   (unless (nil? args)
     (fn (car args))