when a letrec* binding clause expression is a lambda with a reference

[Derick Eddington]

The reference to h1 in (set! f0 (lambda () h1)) is causing h1 to not be assigned the correct value of 'C. The 2nd example, with (set! f0 (lambda () 0)), is correct.

Ikarus Scheme version 0.0.3+ (revision 1421, build 2008-03-22)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (letrec* ([f0 (void)]
            [g0 (void)]
            [h0 (void)]
            [dummy (begin
                     (set! f0 (lambda () h1))
                     (set! g0 'B)
                     (set! h0 'C)
                     '#f)]
            [f1 f0]
            [g1 g0]
            [h1 h0])
           (values f1 g1 h1))
#<procedure f0>
B
#<void> ;;; this should be 'C
>
> (letrec* ([f0 (void)]
            [g0 (void)]
            [h0 (void)]
            [dummy (begin
                     (set! f0 (lambda () 0))
                     (set! g0 'B)
                     (set! h0 'C)
                     '#f)]
            [f1 f0]
            [g1 g0]
            [h1 h0])
           (values f1 g1 h1))
#<procedure f0>
B
C
>

[Abdulaziz Ghuloum (aghuloum)]

Fixed in rev 1424. Thank you!