From 968c0b53dff037874b0d805fdcb64c9b0644ff25 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 8 Feb 2014 03:12:39 +0900 Subject: [PATCH] Revert "suppress duplicate definition warnings, variables are hoisted" This reverts commit 15e95f82da81b7a36770fea3df71244966cc5028. --- 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 39a9509d..35aeef3e 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 - (set! bindings (cadr expr)) - (set! body (cddr expr)) + (define bindings (cadr expr)) + (define body (cddr expr)) (cons (cons (r 'lambda) (cons (map car bindings) body)) (map cadr bindings)))))))