Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-syntax reverse-and-quote-list
- (syntax-rules ()
- ((_ lis)
- (reverse-and-quote-list lis ()))
- ((_ () (backw ...))
- '(backw ...))
- ((_ (arg rest ...)(backw ...))
- (reverse-and-quote-list (rest ...)(arg backw ...)))))
- (reverse-and-quote-list (1 2 3 4 5))
- ; -> (5 4 3 2 1)
Add Comment
Please, Sign In to add comment