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

Remove additional cruft.

Browse Source
This commit is contained in:
Stevie Strickland 2013-03-08 23:36:05 -05:00
parent 57e9001868
commit 71a64bfb77
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/racket/contract/region.rkt
View File

@ -774,8 +774,7 @@
...) ...)
new-stx) new-stx)
(define-values (ctc-id ...) (define-values (ctc-id ...)
(let-syntax ([marked-p (λ (stx) (quote-syntax true-p))] ...) (values (verify-contract 'with-contract ctc) ...))
(values (verify-contract 'with-contract ctc) ...)))
(define-syntaxes (p ...) (define-syntaxes (p ...)
(values (make-external-contracted-id-transformer (values (make-external-contracted-id-transformer
(quote-syntax true-p) (quote-syntax true-p)