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

Create issue
Issue #203 resolved
Takashi Kato repo owner created an issue

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)

Comments (1)

  1. Log in to comment