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

..

Browse Source 
original commit: be1f08327956757bfeb0b63591eb512876714272
This commit is contained in:
Robby Findler 2003-05-12 19:06:32 +00:00
parent 7d524121f7
commit b2ac2e69c5
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mzlib/contract.ss
View File

@ -1473,10 +1473,10 @@
(let ([dom-x dom] ... (let ([dom-x dom] ...
[rng-mk-x rng-mk]) [rng-mk-x rng-mk])
(unless (-contract? dom-x) (unless (-contract? dom-x)
(error '->*d "expected contract as argument, given: ~e" dom-x)) ... (error '->d* "expected contract as argument, given: ~e" dom-x)) ...
(unless (and (procedure? rng-mk-x) (unless (and (procedure? rng-mk-x)
(procedure-arity-includes? rng-mk-x dom-length)) (procedure-arity-includes? rng-mk-x dom-length))
(error '->*d "expected range position to be a procedure that accepts ~a arguments, given: ~e" (error '->d* "expected range position to be a procedure that accepts ~a arguments, given: ~e"
dom-length rng-mk-x)) dom-length rng-mk-x))
body)))) body))))
(lambda (stx) (lambda (stx)
@ -1542,11 +1542,11 @@
[dom-rest-x rest] [dom-rest-x rest]
[rng-mk-x rng-mk]) [rng-mk-x rng-mk])
(unless (-contract? dom-x) (unless (-contract? dom-x)
(error '->*d "expected contract as argument, given: ~e" dom-x)) ... (error '->d* "expected contract as argument, given: ~e" dom-x)) ...
(unless (-contract? dom-rest-x) (unless (-contract? dom-rest-x)
(error '->*d "expected contract for rest argument, given: ~e" dom-rest-x)) (error '->d* "expected contract for rest argument, given: ~e" dom-rest-x))
(unless (procedure? rng-mk-x) (unless (procedure? rng-mk-x)
(error '->*d "expected range position to be a procedure that accepts ~a arguments, given: ~e" (error '->d* "expected range position to be a procedure that accepts ~a arguments, given: ~e"
arity rng-mk-x)) arity rng-mk-x))
body)))) body))))
(lambda (stx) (lambda (stx)