From 57d39569fe0503fba1df9fbb16e10ffadd13bddd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 29 Sep 2005 20:06:09 +0000 Subject: [PATCH] removed #kd, fixed :interface svn: r944 --- collects/mzlib/private/class-internal.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/mzlib/private/class-internal.ss b/collects/mzlib/private/class-internal.ss index 23ab70cf73..15eb0442ce 100644 --- a/collects/mzlib/private/class-internal.ss +++ b/collects/mzlib/private/class-internal.ss @@ -1,5 +1,4 @@ -#kd (module class-internal mzscheme (require (lib "list.ss") (lib "etc.ss") @@ -1973,7 +1972,7 @@ ;; >> Simplistic implementation for now << - (define-syntax :interface + (define-syntax _interface (lambda (stx) (syntax-case stx () [(_ (interface-expr ...) var ...) @@ -3171,7 +3170,7 @@ mixin-expr)))))))])) (define externalizable<%> - (:interface () externalize internalize)) + (_interface () externalize internalize)) (provide (protect make-wrapper-class wrapper-object-wrapped @@ -3182,7 +3181,7 @@ define-serializable-class define-serializable-class* class? mixin - (rename :interface interface) interface? + (rename _interface interface) interface? object% object? object=? externalizable<%> new make-object instantiate get-field field-bound? field-names