Guest User

Untitled

a guest
May 26th, 2018
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.14 KB | None | 0 0
  1. (define-syntax reverse-and-quote-list
  2. (letrec-syntax
  3. ((helper
  4. (syntax-rules ()
  5. ((_ () (backw ...))
  6. '(backw ...))
  7. ((_ (arg rest ...)(backw ...))
  8. (helper (rest ...)(arg backw ...))))))
  9. (syntax-rules ()
  10. ((_ lis)
  11. (helper lis ())))))
  12. ;; *** 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 ())))))
  13. ;; "(stdin)":23:(define-syntax reverse-and-quote-lis ...
  14.  
  15. (define-syntax reverse-and-quote-list
  16. (syntax-rules ()
  17. ((_ lis)
  18. (letrec-syntax
  19. ((helper
  20. (syntax-rules ()
  21. ((_ () (backw ...))
  22. '(backw ...))
  23. ((_ (arg rest ...)(backw ...))
  24. (helper (rest ...)(arg backw ...))))))
  25. (helper lis ())))))
  26. ;; *** ERROR: Compile Error: in definition of macro reverse-and-quote-list: a template contains repetition of constant form: (backw |...|)
  27. ;; "(stdin)":34:(define-syntax reverse-and-quote-lis ...
Add Comment
Please, Sign In to add comment