Now I fixed it (in revision 1453) BUT the examples you cited do not match because the lambda symbol is not an identifier and so it cannot be free-identifier=? with the lambda identifier listed in the literals lists. So, now you get:
Ikarus Scheme version 0.0.3+ (revision 1453, build 2008-04-28) Copyright (c) 2006-2008 Abdulaziz Ghuloum
> (syntax-case '(lambda (x) x) (lambda) [(lambda (x) y) #'x]) Unhandled exception Condition components: 1. &message: "invalid syntax" 2. &syntax: form: (lambda (x) x) subform: #f > (syntax-case '(lambda (x) x) (lambda) [(lambda (x) y) #'x] [_ 'nop!]) nop! >
Now I fixed it (in revision 1453) BUT the examples you cited do not match because the lambda symbol is not an identifier and so it cannot be free-identifier=? with the lambda identifier listed in the literals lists. So, now you get:
Ikarus Scheme version 0.0.3+ (revision 1453, build 2008-04-28)
Copyright (c) 2006-2008 Abdulaziz Ghuloum
> (syntax-case '(lambda (x) x) (lambda) [(lambda (x) y) #'x])
Unhandled exception
Condition components:
1. &message: "invalid syntax"
2. &syntax:
form: (lambda (x) x)
subform: #f
> (syntax-case '(lambda (x) x) (lambda) [(lambda (x) y) #'x] [_ 'nop!])
nop!
>