procgen  Artifact [abec99f409]

Artifact abec99f409a81c3532ab5980f690f0a5aac5018a4a9c17c576326f355e880461:

• File lib/lisp-macro.scm — part of check-in [ee227e70ef] at 2019-03-25 23:00:54 on branch trunk — re-add library code (user: lexi, size: 393) [annotate] [blame] [check-ins using]

; [ʞ] lisp-macro
; enable use of the define-macro syntax
; - example -
; 		(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))))))))