revert this change to fix drscheme.
svn: r12075
This commit is contained in:
parent
714e356fb4
commit
b173fb073e
|
@ -40,9 +40,7 @@
|
|||
|
||||
;; require/typed
|
||||
[(define-values () (begin (quote-syntax (require/typed-internal nm ty)) (#%plain-app values)))
|
||||
(let ([t (parse-type #'ty)])
|
||||
(register-type #'nm t)
|
||||
(list (make-def-binding #'nm t)))]
|
||||
(register-type #'nm (parse-type #'ty))]
|
||||
|
||||
;; define-typed-struct
|
||||
[(define-values () (begin (quote-syntax (define-typed-struct-internal nm ([fld : ty] ...))) (#%plain-app values)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user