From a0390d4ca874dde0c59623a44ed6704c75c21fb5 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 7 Sep 2010 10:54:22 -0400 Subject: [PATCH] Fix name used by coerce-contract for contract-first-order. --- collects/racket/contract/private/guts.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/contract/private/guts.rkt b/collects/racket/contract/private/guts.rkt index 28b2b010fa..504467c67e 100644 --- a/collects/racket/contract/private/guts.rkt +++ b/collects/racket/contract/private/guts.rkt @@ -68,7 +68,7 @@ (define (contract-first-order c) (contract-struct-first-order - (coerce-contract 'contract-first-order-passes? c))) + (coerce-contract 'contract-first-order c))) (define (contract-first-order-passes? c v) ((contract-struct-first-order