avoid leading colon for id

svn: r937
This commit is contained in:
Matthew Flatt 2005-09-29 15:49:48 +00:00
parent 457d23c390
commit 74a64f50da

View File

@ -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