parameterize with no parameters is broken for internal defines

[Derick Eddington]

Ikarus Scheme version 0.0.3+ (revision 1587, build 2008-08-17)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (list (parameterize () (define x 1) x))
Unhandled exception
 Condition components:
   1. &who: define
   2. &message: "a definition was found where an expression was expected"
   3. &syntax:
       form: (define x 1)
       subform: #f
   4. &trace: #<syntax (define x 1)>
> (list (parameterize ([print-graph #t]) (define x 1) x))
(1)
>

[leppie (leppie)]

Looking at the macro definition, it outputs a (begin body...), I think that should be a (let () body ...) rather.

Cheers

leppie

[Abdulaziz Ghuloum (aghuloum)]

This was fixed some time ago. Thanks.