suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed #kd, fixed :interface

Browse Source 
svn: r944
This commit is contained in:
Matthew Flatt 2005-09-29 20:06:09 +00:00
parent 365754f55c
commit 57d39569fe
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/private/class-internal.ss
View File

@ -1,5 +1,4 @@
#kd
(module class-internal mzscheme (module class-internal mzscheme
(require (lib "list.ss") (require (lib "list.ss")
(lib "etc.ss") (lib "etc.ss")
@ -1973,7 +1972,7 @@
;; >> Simplistic implementation for now << ;; >> Simplistic implementation for now <<
(define-syntax :interface (define-syntax _interface
(lambda (stx) (lambda (stx)
(syntax-case stx () (syntax-case stx ()
[(_ (interface-expr ...) var ...) [(_ (interface-expr ...) var ...)
@ -3171,7 +3170,7 @@
mixin-expr)))))))])) mixin-expr)))))))]))
(define externalizable<%> (define externalizable<%>
(:interface () externalize internalize)) (_interface () externalize internalize))
(provide (protect make-wrapper-class (provide (protect make-wrapper-class
wrapper-object-wrapped wrapper-object-wrapped
@ -3182,7 +3181,7 @@
define-serializable-class define-serializable-class* define-serializable-class define-serializable-class*
class? class?
mixin mixin
(rename :interface interface) interface? (rename _interface interface) interface?
object% object? object=? externalizable<%> object% object? object=? externalizable<%>
new make-object instantiate new make-object instantiate
get-field field-bound? field-names get-field field-bound? field-names