diff --git a/collects/typed-scheme/no-check.ss b/collects/typed-scheme/no-check.ss index d9152e64..6aff7220 100644 --- a/collects/typed-scheme/no-check.ss +++ b/collects/typed-scheme/no-check.ss @@ -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 ...)))]))