From b2ac2e69c57c13ebab8f45fe322895f8900d8c01 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 12 May 2003 19:06:32 +0000 Subject: [PATCH] .. original commit: be1f08327956757bfeb0b63591eb512876714272 --- collects/mzlib/contract.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss index ae1fd11..7135a59 100644 --- a/collects/mzlib/contract.ss +++ b/collects/mzlib/contract.ss @@ -1473,10 +1473,10 @@ (let ([dom-x dom] ... [rng-mk-x rng-mk]) (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) (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)) body)))) (lambda (stx) @@ -1542,11 +1542,11 @@ [dom-rest-x rest] [rng-mk-x rng-mk]) (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) - (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) - (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)) body)))) (lambda (stx)