www

commit a37d944da267af72a495b0206c033c4b611e75a7
parent 27380a232db8b964cf4782891de035ecf04533ae
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Wed, 15 Mar 2017 01:04:01 +0100

Cleanup, re-enabled one contract

Diffstat:
M
private/ddd.rkt
 | 
1
-
M
private/optcontract.rkt
 | 
6
++++--
M
private/template-subscripts.rkt
 | 
2
+-

3 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/private/ddd.rkt b/private/ddd.rkt
@@ -256,7 +256,6 @@
 ;;; pvar outside of the body.
 (define-syntax/case (ddd body) ()
   (define/with-syntax (pvar …) (current-pvars-shadowers))
-  (displayln (stx-map syntax-e (current-pvars-shadowers)))
   
   (define-temp-ids "~aᵢ" (pvar …))
   (define/with-syntax f
diff --git a/private/optcontract.rkt b/private/optcontract.rkt
@@ -1,13 +1,15 @@
 #lang racket
 
-(require racket/contract)
+(require (rename-in racket/contract
+                    [define/contract define/contract/always]))
 
 (provide (except-out (all-from-out racket/contract)
                      define-struct/contract
                      ;define/contract
                      provide/contract
                      invariant-assertion)
-         define/contract)
+         define/contract
+         define/contract/always)
 
 (define-syntax-rule (define/contract sig c . rest)
   (define sig . rest))
 \ No newline at end of file
diff --git a/private/template-subscripts.rkt b/private/template-subscripts.rkt
@@ -242,7 +242,7 @@
 
 (define formattable/c (or/c number? string? symbol? bytes?))
 
-(define/contract
+(define/contract/always
   (generate-nested-ids depth bound binder₀ format l* attribute-names whole-form)
   (->i {[depth exact-nonnegative-integer?]
         [bound identifier?]