From 15e95f82da81b7a36770fea3df71244966cc5028 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 8 Feb 2014 02:48:57 +0900 Subject: [PATCH] suppress duplicate definition warnings, variables are hoisted --- piclib/built-in.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index 68e94162..c3d62916 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -42,8 +42,8 @@ (cons (r 'lambda) (cons (map car bindings) body))) (cons name (map cadr bindings)))) (begin - (define bindings (cadr expr)) - (define body (cddr expr)) + (set! bindings (cadr expr)) + (set! body (cddr expr)) (cons (cons (r 'lambda) (cons (map car bindings) body)) (map cadr bindings)))))))