From eea685c1cf41ac86f547e9367cb4c9b8354e477e Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Thu, 18 Feb 2010 04:22:45 +0000 Subject: [PATCH] I didn't fix object-contract from mzlib/contract, just from scheme/contract. 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 --- collects/scheme/private/class-internal.ss | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss index b81f5b5c49..a5d265622f 100644 --- a/collects/scheme/private/class-internal.ss +++ b/collects/scheme/private/class-internal.ss @@ -3681,6 +3681,12 @@ 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 ;;-------------------------------------------------------------------- @@ -3869,6 +3875,8 @@ ;; Providing normal functionality: (provide (protect-out make-wrapper-class wrapper-object-wrapped + extract-vtable + extract-method-ht get-field/proc) (rename-out [_class class]) class* class/derived