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

.

Browse Source 
original commit: 6df0b5a2b5920d3d63332098f8447c879709754b
This commit is contained in:
Matthew Flatt 2001-04-20 15:49:24 +00:00
parent de1b2e8367
commit 42c42c6f92
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/unit.ss
View File

@ -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))

8
collects/tests/mzscheme/unitsig.ss
View File

@ -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