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

fix box/c-as-expression

Browse Source 
closes PR 15341
This commit is contained in:
Robby Findler 2016-08-24 14:30:36 -05:00
parent 753d97335c
commit 6983adc31d
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-test/tests/racket/contract/box.rkt
View File

@ -55,6 +55,9 @@
'box/c7 'box/c7
'(set-box! (contract (box/c boolean? any/c) (box 12) 'pos 'neg) 11)) '(set-box! (contract (box/c boolean? any/c) (box 12) 'pos 'neg) 11))
(test/pos-blame
'box/c8
'(contract ((values box/c) any/c) #f 'pos 'neg))
(test/neg-blame (test/neg-blame
'box/c-with-cons/c-inside 'box/c-with-cons/c-inside

2
racket/collects/racket/contract/private/box.rkt
View File

@ -184,7 +184,7 @@
[x [x
(identifier? #'x) (identifier? #'x)
(syntax-property (syntax-property
(syntax/loc stx box/c) (syntax/loc stx box/c/proc)
'racket/contract:contract 'racket/contract:contract
(vector (gensym 'ctc) (list #'x) null))] (vector (gensym 'ctc) (list #'x) null))]
[(b/c arg ...) [(b/c arg ...)