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

Fix name used by coerce-contract for contract-first-order.

Browse Source
This commit is contained in:
Stevie Strickland 2010-09-07 10:54:22 -04:00
parent eb3d46cc0c
commit a0390d4ca8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/contract/private/guts.rkt
View File

@ -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