From 42c42c6f928f76f785cb70e57a9122c2ce1ed1d2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 20 Apr 2001 15:49:24 +0000 Subject: [PATCH] . original commit: 6df0b5a2b5920d3d63332098f8447c879709754b --- collects/tests/mzscheme/unit.ss | 8 ++++---- collects/tests/mzscheme/unitsig.ss | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss index c4c9c06..78a3b0a 100644 --- a/collects/tests/mzscheme/unit.ss +++ b/collects/tests/mzscheme/unit.ss @@ -146,14 +146,14 @@ (list x y z))) -(test #t apply (lambda (x y z) (and (= x 7) (= z 8) (procedure? y) (= 0 (arity y)))) +(test #t apply (lambda (x y z) (and (= x 7) (= z 8) (procedure? y) (= 0 (procedure-arity y)))) (invoke-unit m1)) (test #t apply (lambda (x y-val a? set-a-b!) (and (= x 7) (= y-val 56) - (= 1 (arity a?)) - (= 2 (arity set-a-b!)))) + (= 1 (procedure-arity a?)) + (= 2 (procedure-arity set-a-b!)))) (invoke-unit (compound-unit (import) @@ -205,7 +205,7 @@ (export) (define (filter v) (if (procedure? v) - `(proc: ,(inferred-name v)) + `(proc: ,(object-name v)) v)) (display (map filter (list x v struct:a y make-x x? x-z both)) diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss index bca15c2..d2902f0 100644 --- a/collects/tests/mzscheme/unitsig.ss +++ b/collects/tests/mzscheme/unitsig.ss @@ -228,14 +228,14 @@ (list x y z))) -(test #t apply (lambda (x y z) (and (= x 7) (= z 8) (procedure? y) (= 0 (arity y)))) +(test #t apply (lambda (x y z) (and (= x 7) (= z 8) (procedure? y) (= 0 (procedure-arity y)))) (invoke-unit/sig m1@)) (test #t apply (lambda (x y-val a? set-a-b!) (and (= x 7) (= y-val 56) - (= 1 (arity a?)) - (= 2 (arity set-a-b!)))) + (= 1 (procedure-arity a?)) + (= 2 (procedure-arity set-a-b!)))) (invoke-unit/sig (compound-unit/sig (import) @@ -298,7 +298,7 @@ (let ([p (open-output-string)] [filter (lambda (v) (if (procedure? v) - `(proc: ,(inferred-name v)) + `(proc: ,(object-name v)) v))]) (invoke-unit/sig (compound-unit/sig