;; R6RS (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 ())))))