suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

revert this change to fix drscheme.

Browse Source 
svn: r12075
This commit is contained in:
Sam Tobin-Hochstadt 2008-10-20 20:04:15 +00:00
parent 714e356fb4
commit b173fb073e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/typecheck/tc-toplevel.ss
View File

@ -40,9 +40,7 @@
;; require/typed ;; require/typed
[(define-values () (begin (quote-syntax (require/typed-internal nm ty)) (#%plain-app values))) [(define-values () (begin (quote-syntax (require/typed-internal nm ty)) (#%plain-app values)))
(let ([t (parse-type #'ty)]) (register-type #'nm (parse-type #'ty))]
(register-type #'nm t)
(list (make-def-binding #'nm t)))]
;; define-typed-struct ;; define-typed-struct
[(define-values () (begin (quote-syntax (define-typed-struct-internal nm ([fld : ty] ...))) (#%plain-app values))) [(define-values () (begin (quote-syntax (define-typed-struct-internal nm ([fld : ty] ...))) (#%plain-app values)))