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

svn: r940
---
 collects/mzlib/class-old.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/mzlib/class-old.ss b/collects/mzlib/class-old.ss
index 9327fbac8e..1954e03235 100644
--- a/collects/mzlib/class-old.ss
+++ b/collects/mzlib/class-old.ss
@@ -932,7 +932,7 @@
 			  init-vars
 			  clauses ...)))])))
 
-  (define-syntax :class
+  (define-syntax _class
     (lambda (stx)
       (syntax-case stx ()
 	[(_ super-expr
@@ -955,7 +955,7 @@
 	 (syntax/loc stx (class* super () args
 			   body ...))])))
   
-  (define-syntax :interface
+  (define-syntax _interface
     (lambda (stx)
       (syntax-case stx ()
 	[(_ (interface-expr ...) var ...)
@@ -983,9 +983,9 @@
 	       (list interface-expr ...)
 	       '(var ...)))))])))
 
-  (provide (rename :class class) class* class*/names
+  (provide (rename _class class) class* class*/names
 	   class-asi class*-asi
-	   (rename :interface interface)
+	   (rename _interface interface)
 	   make-object object? is-a? subclass? class? interface?
 	   class->interface object-interface
 	   implementation? interface-extension?