(library (shorten helper)
         (export lisp-transformer)
         (import (rnrs))

;; R6RS Standard Libraries:12.6 Syntax-object and datum conversions
(define lisp-transformer
  (lambda (p)
    (lambda (x)
      (syntax-case x ()
        [(kwd . rest)
         (datum->syntax #'kwd
           (p (syntax->datum x)))]))))

)