From 2ef98371e477d3800e3ea34f80df994ec4e9c91a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 14 Jun 2003 16:44:12 +0000 Subject: [PATCH] .. original commit: 968ad03a861729fc05db380baecf486693ec5b14 --- collects/mzlib/surrogate.ss | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/collects/mzlib/surrogate.ss b/collects/mzlib/surrogate.ss index 357381c..ae70ef4 100644 --- a/collects/mzlib/surrogate.ss +++ b/collects/mzlib/surrogate.ss @@ -1,13 +1,7 @@ (module surrogate mzscheme (require (lib "class.ss")) - (provide host<%> - surrogate) - - (define host<%> - (interface () - set-surrogate - get-surrogate)) + (provide surrogate) (define-syntax (surrogate stx) @@ -117,7 +111,12 @@ (interface () on-disable-surrogate on-enable-surrogate - ids ...)]) + ids ...)] + [host<%> + (interface () + set-surrogate + get-surrogate + ids ...)]) (values (lambda (super%) (class* super% (host<%>) @@ -145,7 +144,8 @@ overriding-methods ... (super-new))) - + host<%> + (class* object% (surrogate<%>) (define/public (on-enable-surrogate x) (void)) (define/public (on-disable-surrogate x) (void))