From 2633965c91cf9e94c11b2343d66a633bb2d5270f Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Tue, 19 Jan 2010 06:29:43 +0000 Subject: [PATCH] Fixed missing keyword to simple-contract. svn: r17740 --- collects/mzlib/private/contract-arrow.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/contract-arrow.ss b/collects/mzlib/private/contract-arrow.ss index 4eb6f11dfd..a0e84f2186 100644 --- a/collects/mzlib/private/contract-arrow.ss +++ b/collects/mzlib/private/contract-arrow.ss @@ -43,7 +43,7 @@ (let-values ([(res-x ...) (apply val args)]) (values (p-app-x res-x) ...))) (raise-blame-error blame val "expected a procedure"))))) - procedure?))))])) + #:first-order procedure?))))])) (define (build--> name doms doms-rest rngs kwds quoted-kwds rng-any? func) (let ([doms/c (map (λ (dom) (coerce-contract name dom)) doms)]