From 457d23c390607b70ee8e3fd98205a68e6ac91e9a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 29 Sep 2005 15:49:27 +0000
Subject: [PATCH] avoid leading colon for id

svn: r936
---
 collects/mzlib/pretty.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index 159a2532a9..236dfce9d3 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -447,7 +447,7 @@
 			  (hash-table-remove! table obj)
 			  cycle)))))))
 
-     (define ::dummy::
+     (define __dummy__
        (when found-cycle
 	 (let loop ([obj obj])
 	   (if (or (vector? obj)