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

fix box/c and vector/c obligations

Browse Source 
closes PR 13673
This commit is contained in:
Robby Findler 2013-04-07 19:55:10 -05:00
parent 6f7c938c0b
commit ccda5a84ad
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -122,7 +122,10 @@
(list* (cadr args) (car args) new-args)))] (list* (cadr args) (car args) new-args)))]
[else (append (reverse new-args) [else (append (reverse new-args)
(cons (syntax-property (cons (syntax-property
(car args) (syntax-property
(car args)
'racket/contract:negative-position
this-one)
'racket/contract:positive-position 'racket/contract:positive-position
this-one) this-one)
(cdr args)))]))) (cdr args)))])))

7
collects/racket/contract/private/vector.rkt
View File

@ -25,8 +25,11 @@
[else [else
(loop (cdr args) (loop (cdr args)
(cons (syntax-property (cons (syntax-property
(car args) (syntax-property
'racket/contract:positive-position (car args)
'racket/contract:positive-position
this-one)
'racket/contract:negative-position
this-one) this-one)
new-args))]))) new-args))])))