Dream 44/Amiga_Dream_44.iso/RiscPc/programmation/scm4e2.arc/!Scm/scm/macros

Text File | 1994-04-18 | 342b | 25 lines

;
; Simple examples of macros
; ams 14/4/94
;

(define c
    (procedure->macro
        (lambda (x env) `(define ,(cadr x) ,(caddr x)))
    )
)

;
; Now try (c r 5) and then accessing r
; also (c a2 (lambda (x)(+ x 2))) and (a2 4)
;
(define lise-args
    (procedure->macro
        (lambda (x env) `(lambda () ,(cdr x)))
    )
)

;
; try (lise-args (+ 2 4) (+ 5 6))
;