home *** CD-ROM | disk | FTP | other *** search
- ;
- ; 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))
- ;
-