avoid leading colon for id
svn: r937
This commit is contained in:
parent
457d23c390
commit
74a64f50da
|
@ -1,4 +1,5 @@
|
||||||
|
|
||||||
|
#kd
|
||||||
(module class-internal mzscheme
|
(module class-internal mzscheme
|
||||||
(require (lib "list.ss")
|
(require (lib "list.ss")
|
||||||
(lib "etc.ss")
|
(lib "etc.ss")
|
||||||
|
@ -67,7 +68,7 @@
|
||||||
;; class macros
|
;; class macros
|
||||||
;;--------------------------------------------------------------------
|
;;--------------------------------------------------------------------
|
||||||
|
|
||||||
(define-syntaxes (class* :class class/derived)
|
(define-syntaxes (class* _class class/derived)
|
||||||
(let ()
|
(let ()
|
||||||
;; Start with Helper functions
|
;; Start with Helper functions
|
||||||
|
|
||||||
|
@ -3177,7 +3178,7 @@
|
||||||
extract-vtable
|
extract-vtable
|
||||||
extract-method-ht)
|
extract-method-ht)
|
||||||
|
|
||||||
(rename :class class) class* class/derived
|
(rename _class class) class* class/derived
|
||||||
define-serializable-class define-serializable-class*
|
define-serializable-class define-serializable-class*
|
||||||
class?
|
class?
|
||||||
mixin
|
mixin
|
||||||
|
|
Loading…
Reference in New Issue
Block a user