Fixed missing keyword to simple-contract.

svn: r17740 original commit: 2633965c91cf9e94c11b2343d66a633bb2d5270f
2010-01-19 06:29:43 +00:00 · 2010-01-19 06:29:43 +00:00 · ff9748dd99
commit ff9748dd99
parent 76fba4d47e
1 changed files with 1 additions and 1 deletions
--- 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)]