April 01, 2004
Building Little Languages with Macros
(define-syntax define-cbr-as-cbv
(syntax-rules ()
; The first case is for generating one get and set
((define-cbr-as-cbv do-f (arg0 arg ...)
(gens ...) body)
(define-cbr-as-cbv do-f (arg ...)
(gens ... (arg0 get set)) body))
; The second case finishes the expansion
((define-cbr-as-cbv do-f ()
((arg get set) ...) body)
(define (do-f get ... set ...)
(define-get/set-var arg get set) ...
body) )))
Example 11: define-cbr-as-cbv macro.
Previous Page |
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
12
Next Page
|
 |
|
|||||||||||||||||||||||||||
|
