13 lines
305 B
Plaintext
13 lines
305 B
Plaintext
@(define (foo . xs) (bar xs))
|
|
@(begin (define (isname) @list{is @foo{@name}})
|
|
(define-syntax-rule (DEF x y) (define x y)))
|
|
@(DEF (bar x) (list z " " x))
|
|
@(define-syntax-rule (BEG x ...) (begin x ...))
|
|
@(BEG (define z "zee"))
|
|
|
|
My name @isname
|
|
@DEF[x]{Foo!}
|
|
|
|
... and to that I say "@x", I think.
|
|
|