tisp

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

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))