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 racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
