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

Error message typo

Browse Source
This commit is contained in:
Asumu Takikawa 2013-01-24 09:26:47 -05:00
parent 8862a44f14
commit a80830ab1d
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/misc.rkt
View File

@ -859,7 +859,7 @@
(make-parameter/c ctc ctc #f)] (make-parameter/c ctc ctc #f)]
[(in-ctc out-ctc) [(in-ctc out-ctc)
(make-parameter/c (coerce-contract 'parameter/c in-ctc) (make-parameter/c (coerce-contract 'parameter/c in-ctc)
(coerce-contract 'parameter-c out-ctc) (coerce-contract 'parameter/c out-ctc)
#t)])) #t)]))
;; in - negative contract ;; in - negative contract