Cleanup, re-enabled one contract

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

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))

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?]