The "..." has a transformer binding which needs to be provided:
http://docs.racket-lang.org/reference/stx-patterns.html#%28form._%28%28lib._racket%2Fprivate%2Fstxcase-scheme..rkt%29._......%29%29
Try this version of toy.rkt:
--- toy.rkt ---
#lang racket
(provide #%module-begin
#%top-interaction
(rename-out [top #%top]
[app #%app]))
(provide define-syntax-rule
(for-syntax ...))
(struct ast (symbol args) #:transparent)
(define-syntax-rule (top . symbol)
'symbol)
(define-syntax-rule (app f arg ...)
(ast f (list arg ...)))
--- sample.rkt ----
#lang s-exp "toy.rkt"
(define-syntax-rule (defun name args body0 body ...)
(def (fun args body0 body ...)))
(defun add (a b) (foo a b))
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
