.
original commit: bee2ba4a43c5675e0ea91bcdaa9585d1a383df00
This commit is contained in:
parent
3539dc22ec
commit
5b8648c52e
|
@ -63,7 +63,7 @@
|
|||
(test 120 'local (local [(define (f y) 'ignore-me (add1 y))] (f 119)))
|
||||
(test 17 'local (local [(define-values (apple b) (values 12 17))] b))
|
||||
(test 4 'local (local [(define-struct cons (car cdr))] (cons-car (make-cons 4 5))))
|
||||
(test 40 'local (local [(define-struct (cons struct:exn) (car cdr))] (cons-car (make-cons "" (void) 40 50))))
|
||||
(test 40 'local (local [(define-struct (cons exn) (car cdr))] (cons-car (make-cons "" (void) 40 50))))
|
||||
(syntax-test #'(local))
|
||||
(syntax-test #'(local . 1))
|
||||
(syntax-test #'(local ()))
|
||||
|
|
Loading…
Reference in New Issue
Block a user