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

Change from (module ...) -> #lang and also move any mzscheme -> scheme/base.

Browse Source 
svn: r16563
This commit is contained in:
Stevie Strickland 2009-11-05 17:18:54 +00:00
parent ad438ef63f
commit c993533814
4 changed files with 4258 additions and 4259 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/class.ss
View File

@ -1,11 +1,11 @@
(module class mzscheme #lang scheme/base
(require "contract/private/object.ss") (require "contract/private/object.ss")
(provide (all-from "contract/private/object.ss")) (provide (all-from-out "contract/private/object.ss"))
;; All of the implementation is actually in private/class-internal.ss, ;; All of the implementation is actually in private/class-internal.ss,
;; which provides extra (private) functionality to contract.ss. ;; which provides extra (private) functionality to contract.ss.
(require "private/class-internal.ss") (require "private/class-internal.ss")
(provide-public-names) (provide-public-names)
(provide generic?)) (provide generic?)

11
collects/scheme/private/class-events.ss
View File

@ -1,8 +1,8 @@
#lang scheme/base
(module class-events mzscheme (require (for-syntax scheme/base
scheme/stxparam))
(require-for-syntax mzlib/stxparam) (require scheme/stxparam)
(require mzlib/stxparam)
(provide current-class-event-handler (provide current-class-event-handler
define-traced define-traced
@ -57,7 +57,7 @@
(syntax/loc stx (form name (lambda args . body)))] (syntax/loc stx (form name (lambda args . body)))]
[(form name body ...) [(form name body ...)
(with-syntax ([name-traced (with-syntax ([name-traced
(datum->syntax-object (datum->syntax
(syntax name) (syntax name)
(string->symbol (string->symbol
(string-append (string-append
@ -108,4 +108,3 @@
(define (get-event obj field) (define (get-event obj field)
((current-class-event-handler) 'get obj field)) ((current-class-event-handler) 'get obj field))
)

4
collects/scheme/private/class-internal.ss
View File

@ -1,5 +1,5 @@
#lang scheme/base
(module class-internal scheme/base
(require (for-syntax scheme/base) (require (for-syntax scheme/base)
mzlib/list mzlib/list
mzlib/etc mzlib/etc
@ -3892,5 +3892,5 @@
object-method-arity-includes? object-method-arity-includes?
method-in-interface? interface->method-names class->interface class-info method-in-interface? interface->method-names class->interface class-info
(struct-out exn:fail:object) (struct-out exn:fail:object)
make-primitive-class)) make-primitive-class)

4
collects/scheme/private/classidmap.ss
View File

@ -1,5 +1,5 @@
#lang scheme/base
(module classidmap scheme/base
(require syntax/stx (require syntax/stx
(for-syntax scheme/base) (for-syntax scheme/base)
(for-template scheme/base "class-events.ss")) (for-template scheme/base "class-events.ss"))
@ -364,4 +364,4 @@
flatten-args make-method-call flatten-args make-method-call
do-localize make-private-name do-localize make-private-name
generate-super-call generate-inner-call generate-super-call generate-inner-call
generate-class-expand-context class-top-level-context?))) generate-class-expand-context class-top-level-context?))