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