From b6637842e7a9d0f1e60b67498d9dbfd67b440cd2 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 8 Feb 2014 03:18:13 +0900 Subject: [PATCH] Revert "Revert "suppress duplicate definition warnings, variables are hoisted"" This reverts commit 968c0b53dff037874b0d805fdcb64c9b0644ff25. --- 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 35aeef3e..39a9509d 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)))))))