From 1eeb27fc3087a2e2219342cd402dae61ccbbc678 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 23 Feb 2010 15:58:00 +0000 Subject: [PATCH] Small fixes in make-wrapper-class/object. svn: r18302 --- collects/scheme/private/class-internal.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss index 4fa8f6b260..dfca957367 100644 --- a/collects/scheme/private/class-internal.ss +++ b/collects/scheme/private/class-internal.ss @@ -4266,7 +4266,7 @@ ;; wrapper for contracts ;;-------------------------------------------------------------------- -(define (make-wrapper-class obj cls blame methods method-contracts fields field-contracts) +(define (make-wrapper-class cls blame methods method-contracts fields field-contracts) (let* ([name (class-name cls)] [method-width (class-method-width cls)] [method-ht (class-method-ht cls)] @@ -4385,8 +4385,8 @@ ;; make-wrapper-object: object (listof symbol) (listof contract?) (listof symbol) (listof contract?) (define (make-wrapper-object obj blame methods method-contracts fields field-contracts) (check-object-contract obj blame methods fields) - (let ([new-cls (make-wrapper-class obj (object-ref obj) blame methods method-contracts fields field-contracts)]) - ((class-make-object new-cls) obj))) + (let ([new-cls (make-wrapper-class (object-ref obj) blame methods method-contracts fields field-contracts)]) + ((class-make-object new-cls) (unwrap-object obj)))) ;;-------------------------------------------------------------------- ;; misc utils