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