cps macro example

ore-quote.scm

(define-syntax %ore-reverse
   (syntax-rules (syntax-lambda)
      ((_ "INTERNAL" (syntax-lambda (c-arg) c-body) (robj ...) ())
         (let-syntax ((cont-syntax
                        (syntax-rules ()
                           ((_ c-arg) c-body))))
            (cont-syntax
              (robj ...))))
      ((_ "INTERNAL" continuation (robj ...) (obj1 obj2 ...))
       (%ore-reverse "INTERNAL" continuation (obj1 robj ...) (obj2 ...)))
      ((_ continuation (obj ... ))
       (%ore-reverse "INTERNAL" continuation () (obj ... )))))

(define-syntax %ore-quote
   (syntax-rules (syntax-lambda)
      ((_ (syntax-lambda (c-arg) c-body) (1 ls1 ls2))
         (let-syntax ((cont-syntax 
                         (syntax-rules ()
                              ((_ c-arg) c-body))))
             (cont-syntax 
               (%ore-reverse
                 (syntax-lambda (it)
                     (quote (1 it ls2)))
                 ls1))))

      ((_ (syntax-lambda (c-arg) c-body)(2 ls1 ls2))
       (let-syntax ((cont-syntax 
                      (syntax-rules ()
                           ((_ c-arg) c-body))))
             (cont-syntax 
               (%ore-reverse
                 (syntax-lambda (it)
                     (quote (2 ls1 it)))
                 ls2))))))

(define-syntax ore-quote
   (syntax-rules ()
     ((_ (num ls1 ls2))
      (%ore-quote
        (syntax-lambda (it) it)
        (num ls1 ls2)))))

(display 
   (ore-quote
     (2 (1 2 3 4 5) (6 7 8 9))))