[Chicken-hackers] expand seems not to keep the promise made in the manual

[Jörg F . Wittenberger]

Citing the manual

> <procedure>(expand X)</procedure>

> If {{X}} is a macro-form, expand the macro (and repeat expansion
> until expression is a non-macro form).  Returns the resulting expression.

Let's try:

(expand '(let ((foo 1))
 (let-syntax
     ((foo (syntax-rules () ((_) 2))))
   (list 'bar foo (foo)))))

(##core#let ((foo 1)) (let-syntax ((foo (syntax-rules () ((_) 2)))) (list 
(quote bar) foo (foo))))

Shouldn't this result in

(##core#let ((foo 1)) (list (quote bar) 1 2)))

???  (foo) is still an application of a macro and `let-syntax` should
IMHO not appear in any expansion at all.

Or am I mistaking something?


/Jörg





.......