From b88d779511bd01fc58bbda6a4991f452dfdae945 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Sep 2005 15:50:33 +0000 Subject: [PATCH] avoid leading colon for id svn: r939 original commit: 4c5aff33a8ce52d7141f40059c0cfd6c8eb326b5 --- collects/mzlib/unit.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.ss index da77b87..985ce06 100644 --- a/collects/mzlib/unit.ss +++ b/collects/mzlib/unit.ss @@ -37,7 +37,7 @@ ;; ---------------------------------------------------------------------- ;; The `unit' syntactic form - (define-syntaxes (:unit unit/no-expand) + (define-syntaxes (_unit unit/no-expand) (let ([do-unit (lambda (stx expand?) (syntax-case stx (import export) @@ -837,7 +837,7 @@ s)) (syntax->list (syntax exports)))) (syntax exports))] - [extract-unit (syntax (:unit + [extract-unit (syntax (_unit (import . exports) (export) (values . exports)))]) @@ -861,7 +861,7 @@ (syntax (define-values (tagged-export ...) invoke-unit)))))))])))]) (values (mk #f) (mk #t)))) - (provide (rename :unit unit) unit/no-expand + (provide (rename _unit unit) unit/no-expand compound-unit invoke-unit unit? (struct exn:fail:unit ())