syncase & co

[Manuel Giraud]

Hi, I'm new to this list so the following question may have been
discussed already (pardon me) :

I'm reading the Chez Scheme¹ documentation that says this code :

(let ((p (cons 0 #f)))
  (define-syntax pcar
    (lambda (x)
      (syntax-case x ()
        (_ (identifier? x) (syntax (car p)))
        ((_ v) (syntax (set-car! p v))))))
  (let ((a pcar))
    (pcar 1)
    (list a pcar)))

should return : (0 1); while it gives (#<macro 42> #<macro 42>) using
Guile. Is it a choice, a feature or a bug ?

--------
¹ from which Guile takes the syntax-case package AFAIK.
-- 
"Never imagine yourself not to be otherwise than what it might appear
to others that what you were or might have been was not otherwise than
what you had been would have appeared to them to be otherwise"
  The Duchess

_Manuel Giraud_