From cdb7b62f5eeeb799c0bbfc67aa5ba8c55bccd97b Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 26 Feb 2010 21:04:00 +0000 Subject: [PATCH] whoops svn: r18364 original commit: 144a25ffd4abe289cbab74c4b353e404164b6a8a --- collects/typed-scheme/no-check.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 ...)))]))