identifier-syntax second case broken

[leppie]

Ikarus Scheme version 0.0.2patched+ (revision 1237, build 2007-12-13)
Copyright (c) 2006-2007 Abdulaziz Ghuloum

> (define p (cons 4 5))
> (define-syntax p.car (identifier-syntax (_ (car p)) ((set! _ e) (set-car! p e))))
> p.car
4
> (set! p.car 15)
Unhandled exception
 Condition components:
   1. &error
   2. &who: expander
   3. &message: "cannot modify binding in"
   4. &irritants: ((set! p.car 15))

This follows too when trying to redefine the symbol.

> (define-syntax p.car (identifier-syntax (_ (car p)) ((set! _ e) (set-car! p e))))
Unhandled exception
 Condition components:
   1. &error
   2. &who: expander
   3. &message: "cannot modify binding in"
   4. &irritants: ((define-syntax p.car (identifier-syntax (_ (car p)) ((set! _ e) (set-car! p e)))))

[Abdulaziz Ghuloum (aghuloum)]

Fixed the identifier-syntax issue in revision 1241. Keeping this open until I resolve the second issue "cannot redefine macros".

Ikarus Scheme version 0.0.2patched+ (revision 1241, build 2007-12-14)
Copyright (c) 2006-2007 Abdulaziz Ghuloum

> (define p (cons 4 5))
> (define-syntax p.car (identifier-syntax (_ (car p)) ((set! _ e) (set-car! p e))))
> p.car
4
> (set! p.car 15)
> p.car
15

[Abdulaziz Ghuloum (aghuloum)]

Fixed in revision 1242. Thanks for the bug report.

[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.)