Named let violates scoping rules

[leppie]

I made the following snippet to test let and friends, ikarus and psyntax (via IronScheme) suffers from this bug.

(let ((b '(1 2 3)))
  (let* ((a b)
         (b (cons 0 a)))
    (let b ((a b))
      (if (null? a)
           'done
            (b (cdr a))))))

Ikarus gives me this reply:
Unhandled exception
 Condition components:
   1. &error
   2. &who: cdr
   3. &message: "invalid list structure"
   4. &irritants: (#<procedure b>)

I am not sure what the problem is here, but it doesn't work as it should.

[leppie (leppie)]

Forgot to mention, I am using an updated expander.ss from ikarus (about a week old).

[Abdulaziz Ghuloum (aghuloum)]

Fixed in revision 1202 of ikarus.

[Abdulaziz Ghuloum (aghuloum)]

This bug report is about to be closed as the fix comitted
previously will be incorporated in the next 0.0.3 release of
Ikarus Scheme, scheduled for January 31, 2008. A release
candidate tarball is available for download from:
http://www.cs.indiana.edu/~aghuloum/ikarus/ikarus-0.0.3-rc1.tar.gz
Please do test it if you have the time and report any issues
you might encounter. Thank you very much for your support.
(Sorry for the duplicates; I'm updating every open bug.)