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

Provide find-method/who and do-make-object, for Typed Scheme.

Browse Source 
svn: r8841
This commit is contained in:
Sam Tobin-Hochstadt 2008-03-01 23:09:23 +00:00
parent 362f16b411
commit bb5fe5e47c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,7 +21,9 @@
;; spec for external interface ;; spec for external interface
;;-------------------------------------------------------------------- ;;--------------------------------------------------------------------
(provide provide-public-names) (provide provide-public-names
;; needed for Typed Scheme
(protect-out do-make-object find-method/who))
(define-syntax (provide-public-names stx) (define-syntax (provide-public-names stx)
#'(provide class class* class/derived #'(provide class class* class/derived
define-serializable-class define-serializable-class* define-serializable-class define-serializable-class*