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

whoops

Browse Source 
svn: r18364

original commit: 144a25ffd4abe289cbab74c4b353e404164b6a8a
This commit is contained in:
Sam Tobin-Hochstadt 2010-02-26 21:04:00 +00:00
parent e3cf00137d
commit cdb7b62f5e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/typed-scheme/no-check.ss
View File

@ -1,6 +1,9 @@
#lang scheme/base
(require (except-in "private/prims.ss" require/typed require/opaque-type require-typed-struct))
(require
(except-in "private/prims.ss"
require/typed require/opaque-type require-typed-struct)
(for-syntax scheme/base syntax/parse syntax/struct))
(provide (all-from-out scheme/base)
(all-defined-out)
(all-from-out "private/prims.ss"))
@ -46,5 +49,5 @@
(syntax-parse stx #:literals (:)
[(_ (~or nm:id (nm:id _:id)) ([fld : ty] ...) lib)
(with-syntax ([(struct-info maker pred sel ...) (build-struct-names #'nm (syntax->list #'(fld ...)) #f #t)])
#'(require (only-in lib struct-info maker pred sel ...)) ...)]))
#'(require (only-in lib struct-info maker pred sel ...)))]))