14 lines
127 B
Plaintext
14 lines
127 B
Plaintext
(define-macro (error)
|
|
(assert t))
|
|
|
|
|
|
(define-macro (test)
|
|
`(begin
|
|
(+ 1 1)
|
|
(error)
|
|
(+ 1 1)))
|
|
|
|
(test)
|
|
|
|
(assert t)
|