Artifact ad02b3f2ba208f2b0180262de0802c04681afc12ec5863f10e0d39a2cdf2fcd2:
- File scmlib/lisp-macro.scm — part of check-in [520b38deac] at 2019-07-23 12:32:27 on branch trunk — add sexcp (user: lexi, size: 499) [annotate] [blame] [check-ins using]
; [ʞ] lisp-macro ; ~ lexi hale <lexi@hale.su> ; © affero general public license ; > (load "lib/lisp-macro.scm") ; enable use of the define-macro syntax in chicken scheme ; ex: (define-macro (if-or-f . body) ; `(if ,(car body) ,(cadr body) #f)) (define-syntax define-macro (er-macro-transformer (lambda (exp r c) `(define-syntax ,(caadr exp) (er-macro-transformer (lambda (,(cdadr exp) id-rename id-compare) (let ((,(cdadr exp) (cdr ,(cdadr exp)))) ,@(cddr exp))))))))