From be29737ef1658d9b98c93329ab63f6dda6f09820 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Tue, 14 May 2013 14:57:57 -0400 Subject: [PATCH] Whitespace and comment fixes original commit: 09cf079453a162bb742ee7d44e1295ccc34934e9 --- collects/typed-racket/utils/require-contract.rkt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/typed-racket/utils/require-contract.rkt b/collects/typed-racket/utils/require-contract.rkt index 2ab53551..491dc9ca 100644 --- a/collects/typed-racket/utils/require-contract.rkt +++ b/collects/typed-racket/utils/require-contract.rkt @@ -1,5 +1,7 @@ #lang racket/base +;; This module provides helper macros for `require/typed` + (require racket/contract/region racket/contract/base syntax/location (for-syntax racket/base @@ -25,19 +27,16 @@ 'inferred-name (syntax-e #'name)))])])) - (define-syntax (get-alternate stx) (syntax-case stx () [(_ id) (tr:get-alternate #'id)])) - - -;Requires an identifier from an untyped module into a typed module -;nm is the import -;hidden is an id that will end up being the actual definition -;nm will be bound to a rename transformer so that it is not provided -;with all-defined-out +;; Requires an identifier from an untyped module into a typed module +;; nm is the import +;; hidden is an id that will end up being the actual definition +;; nm will be bound to a rename transformer so that it is not provided +;; with all-defined-out (define-syntax (require/contract stx) (define-syntax-class renameable (pattern nm:id @@ -66,3 +65,4 @@ (current-contract-region) (quote nm.nm) (quote-srcloc nm.nm)))))])) +