syntax-parameterize doesn't work if syntax parameter is inserted by syntax-rules

[Takashi Kato]

This should work properly but user-input is '()

(define-syntax-parameter *input* (syntax-rules () ((_) '())))
(define-syntax aux
  (syntax-rules ()
    ((_ body ...)
     (let ((user-input (*input*)))
       ;; do what you need to do
       body ...))))
(define-syntax foo
  (syntax-rules (*input*)
    ((_ (*input* alist) body ...)
     (syntax-parameterize ((*input* (syntax-rules () ((_) 'alist))))
       (foo body ...)))
    ((_ body ...) (aux body ...))))

(foo (*input* ((a b) (c d))) 'ok)

[Takashi Kato]

Adding syntax-parameterize syntax in compiler (Fixes #203)

→ <<cset 50d7bbac2cae>>