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

Call raise-argument-error correctly.

Browse Source
This commit is contained in:
Eric Dobson 2013-03-24 21:59:57 -07:00
parent 5bb51aff4c
commit f3fdd5c1d7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -90,7 +90,7 @@
(define (coerce-flat-contract name x) (define (coerce-flat-contract name x)
(define ctc (coerce-contract/f x)) (define ctc (coerce-contract/f x))
(unless (flat-contract-struct? ctc) (unless (flat-contract-struct? ctc)
(raise-argument-error name 'flat-contract? x)) (raise-argument-error name "flat-contract?" x))
ctc) ctc)
;; coerce-flat-contacts : symbol (listof any/c) -> (listof flat-contract) ;; coerce-flat-contacts : symbol (listof any/c) -> (listof flat-contract)
@ -101,7 +101,7 @@
(define ctc (coerce-contract/f x)) (define ctc (coerce-contract/f x))
(unless (flat-contract-struct? ctc) (unless (flat-contract-struct? ctc)
(raise-argument-error name (raise-argument-error name
'flat-contract? "flat-contract?"
i i
xs)) xs))
ctc)) ctc))
@ -112,7 +112,7 @@
(unless (chaperone-contract-struct? ctc) (unless (chaperone-contract-struct? ctc)
(raise-argument-error (raise-argument-error
name name
'chaperone-contract? "chaperone-contract?"
x)) x))
ctc) ctc)
@ -125,7 +125,7 @@
(unless (chaperone-contract-struct? ctc) (unless (chaperone-contract-struct? ctc)
(apply raise-argument-error (apply raise-argument-error
name name
'chaperone-contract? "chaperone-contract?"
i i
xs)) xs))
ctc)) ctc))
@ -134,7 +134,7 @@
(define (coerce-contract name x) (define (coerce-contract name x)
(or (coerce-contract/f x) (or (coerce-contract/f x)
(raise-argument-error name (raise-argument-error name
'contract? "contract?"
x))) x)))
;; coerce-contracts : symbols (listof any) -> (listof contract) ;; coerce-contracts : symbols (listof any) -> (listof contract)