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

avoid leading colon for id

Browse Source 
svn: r940
This commit is contained in:
Matthew Flatt 2005-09-29 15:51:20 +00:00
parent 4c5aff33a8
commit 898f64df63
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/class-old.ss
View File

@ -932,7 +932,7 @@
init-vars init-vars
clauses ...)))]))) clauses ...)))])))
(define-syntax :class (define-syntax _class
(lambda (stx) (lambda (stx)
(syntax-case stx () (syntax-case stx ()
[(_ super-expr [(_ super-expr
@ -955,7 +955,7 @@
(syntax/loc stx (class* super () args (syntax/loc stx (class* super () args
body ...))]))) body ...))])))
(define-syntax :interface (define-syntax _interface
(lambda (stx) (lambda (stx)
(syntax-case stx () (syntax-case stx ()
[(_ (interface-expr ...) var ...) [(_ (interface-expr ...) var ...)
@ -983,9 +983,9 @@
(list interface-expr ...) (list interface-expr ...)
'(var ...)))))]))) '(var ...)))))])))
(provide (rename :class class) class* class*/names (provide (rename _class class) class* class*/names
class-asi class*-asi class-asi class*-asi
(rename :interface interface) (rename _interface interface)
make-object object? is-a? subclass? class? interface? make-object object? is-a? subclass? class? interface?
class->interface object-interface class->interface object-interface
implementation? interface-extension? implementation? interface-extension?