Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-syntax reverse-and-quote-list
- (letrec-syntax
- ((helper
- (syntax-rules ()
- ((_ () (backw ...))
- '(backw ...))
- ((_ (arg rest ...)(backw ...))
- (helper (rest ...)(arg backw ...))))))
- (syntax-rules ()
- ((_ lis)
- (helper lis ())))))
- ;; *** ERROR: Compile Error: syntax-error: malformed define-syntax: (define-syntax reverse-and-quote-list (letrec-syntax ((helper (syntax-rules () ((_ () (backw |...|)) '(backw |...|)) ((_ (arg rest |...|) (backw |...|)) (helper (rest |...|) (arg backw |...|)))))) (syntax-rules () ((_ lis) (helper lis ())))))
- ;; "(stdin)":23:(define-syntax reverse-and-quote-lis ...
- (define-syntax reverse-and-quote-list
- (syntax-rules ()
- ((_ lis)
- (letrec-syntax
- ((helper
- (syntax-rules ()
- ((_ () (backw ...))
- '(backw ...))
- ((_ (arg rest ...)(backw ...))
- (helper (rest ...)(arg backw ...))))))
- (helper lis ())))))
- ;; *** ERROR: Compile Error: in definition of macro reverse-and-quote-list: a template contains repetition of constant form: (backw |...|)
- ;; "(stdin)":34:(define-syntax reverse-and-quote-lis ...
Add Comment
Please, Sign In to add comment