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

racket/contract: move comment

Browse Source 
Move a comment closer to the code it talks about
This commit is contained in:
Ben Greenman 2019-05-01 23:24:43 -04:00
parent 5b929a7621
commit 721ef2050f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -327,8 +327,6 @@
xs)) xs))
ctc)) ctc))
;; coerce-contract/f : any -> (or/c #f contract?)
;; returns #f if the argument could not be coerced to a contract
(define-values (name-default name-default?) (define-values (name-default name-default?)
(let () (let ()
(struct name-default ()) (struct name-default ())
@ -370,6 +368,8 @@
(set! integer-in-0f 0f) (set! integer-in-0f 0f)
(set! integer-in-1f 1f)) (set! integer-in-1f 1f))
;; coerce-contract/f : any -> (or/c #f contract?)
;; returns #f if the argument could not be coerced to a contract
(define (coerce-contract/f x [name name-default]) (define (coerce-contract/f x [name name-default])
(cond (cond
[(coerce-simple-value name x) => values] [(coerce-simple-value name x) => values]