From 183798fddac4dee14bd5ce49812553b0d1a08ee1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 12 Feb 2003 20:02:17 +0000
Subject: [PATCH] ..

original commit: 0f5987bf9a8e9249f6b53db4928411c9a4af7d2d
---
 collects/mzlib/contract.ss | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index d1f7466..9fe9833 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -56,16 +56,16 @@
        (identifier? (syntax name))
        (with-syntax ([pos-blame-stx (datum->syntax-object define-stx 'here)]
                      [contract-id (datum->syntax-object 
-                                   define-stx 
+                                   #f 
                                    (string->symbol
                                     (format
-                                     "ACK-define/contract-contract-id-~a"
+                                     "define/contract-contract-id-~a"
                                      (syntax-object->datum (syntax name)))))]
                      [id (datum->syntax-object 
                           define-stx
                           (string->symbol
                            (format
-                            "ACK-define/contract-id-~a"
+                            "define/contract-id-~a"
                             (syntax-object->datum (syntax name)))))])
          (syntax/loc define-stx 
           (begin
@@ -391,12 +391,12 @@
          ;; the name isn't fresh, so `id' combined with `ids' must already be unique.
          (define (mangle-id prefix id . ids)
            (datum->syntax-object
-            provide-stx
+            #f
             (string->symbol
              (string-append
               prefix
               (format 
-               "-~a~a-ACK-PLEASE_DONT_GUESS_THIS_ID"
+               "-~a~a"
                (syntax-object->datum id)
                (apply 
                 string-append