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

Cleanup, re-enabled one contract

Browse Source
This commit is contained in:
Georges Dupéron 2017-03-15 01:04:01 +01:00
parent 27380a232d
commit a37d944da2
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
private/ddd.rkt
View File

@ -256,7 +256,6 @@
;;; pvar outside of the body. ;;; pvar outside of the body.
(define-syntax/case (ddd body) () (define-syntax/case (ddd body) ()
(define/with-syntax (pvar …) (current-pvars-shadowers)) (define/with-syntax (pvar …) (current-pvars-shadowers))
(displayln (stx-map syntax-e (current-pvars-shadowers)))
(define-temp-ids "~aᵢ" (pvar …)) (define-temp-ids "~aᵢ" (pvar …))
(define/with-syntax f (define/with-syntax f

6
private/optcontract.rkt
View File

@ -1,13 +1,15 @@
#lang racket #lang racket
(require racket/contract) (require (rename-in racket/contract
[define/contract define/contract/always]))
(provide (except-out (all-from-out racket/contract) (provide (except-out (all-from-out racket/contract)
define-struct/contract define-struct/contract
;define/contract ;define/contract
provide/contract provide/contract
invariant-assertion) invariant-assertion)
define/contract) define/contract
define/contract/always)
(define-syntax-rule (define/contract sig c . rest) (define-syntax-rule (define/contract sig c . rest)
(define sig . rest)) (define sig . rest))

2
private/template-subscripts.rkt
View File

@ -242,7 +242,7 @@
(define formattable/c (or/c number? string? symbol? bytes?)) (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) (generate-nested-ids depth bound binder₀ format l* attribute-names whole-form)
(->i {[depth exact-nonnegative-integer?] (->i {[depth exact-nonnegative-integer?]
[bound identifier?] [bound identifier?]