Allow at top-level

This commit is contained in:
Justin Ethier 2016-02-05 23:24:06 -05:00
parent 0f610c7fe8
commit dc3d55cc7d

View file

@ -5,7 +5,7 @@
)
;; TODO: seems begins are not spliced when part of an applied lambda??
((lambda ()
;;((lambda ()
(define-record-type <pare>
(kons x y)
@ -41,7 +41,7 @@
; (pare? (kons 1 2))
; (pare? (cons 1 4))
;))
))
;;))
;(((lambda ()
;(define <pare> (register-simple-type <pare> #f (quote (x y))))