From 721ef2050f1386f014799297e93665bdfe5eeeef Mon Sep 17 00:00:00 2001 From: Ben Greenman Date: Wed, 1 May 2019 23:24:43 -0400 Subject: [PATCH] racket/contract: move comment Move a comment closer to the code it talks about --- racket/collects/racket/contract/private/guts.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/contract/private/guts.rkt b/racket/collects/racket/contract/private/guts.rkt index e8ce80286c..b812b8663a 100644 --- a/racket/collects/racket/contract/private/guts.rkt +++ b/racket/collects/racket/contract/private/guts.rkt @@ -327,8 +327,6 @@ xs)) 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?) (let () (struct name-default ()) @@ -370,6 +368,8 @@ (set! integer-in-0f 0f) (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]) (cond [(coerce-simple-value name x) => values]