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

I didn't fix object-contract from mzlib/contract, just from scheme/contract.

Browse Source 
I don't plan on fixing the former at the moment, so I'll just add back these
two accessors so that it's happy.

svn: r18144
This commit is contained in:
Stevie Strickland 2010-02-18 04:22:45 +00:00
parent 2eab591c0f
commit eea685c1cf
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3681,6 +3681,12 @@
cls))) cls)))
; extract-vtable : object -> (vectorof method-proc[this args ... -> res])
(define (extract-vtable o) (class-methods (object-ref o)))
; extract-method-ht : object -> hash-table[sym -> number]
(define (extract-method-ht o) (class-method-ht (object-ref o)))
;;-------------------------------------------------------------------- ;;--------------------------------------------------------------------
;; misc utils ;; misc utils
;;-------------------------------------------------------------------- ;;--------------------------------------------------------------------
@ -3869,6 +3875,8 @@
;; Providing normal functionality: ;; Providing normal functionality:
(provide (protect-out make-wrapper-class (provide (protect-out make-wrapper-class
wrapper-object-wrapped wrapper-object-wrapped
extract-vtable
extract-method-ht
get-field/proc) get-field/proc)
(rename-out [_class class]) class* class/derived (rename-out [_class class]) class* class/derived