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

Fix a couple of identifer references that were overlooked.

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

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

@ -515,9 +515,9 @@
[(set! i arg)
(quasisyntax/loc stx
(begin
(set! int-id (contract ctc arg neg pos (quote int-id) (quote-srcloc id)))
(set! int-id (contract ctc arg neg pos (quote int-id) (quote-srcloc int-id)))
(set! ext-id (λ ()
(let ([x (contract ctc int-id pos neg (quote ext-id) (quote-srcloc id))])
(let ([x (contract ctc int-id pos neg (quote ext-id) (quote-srcloc ext-id))])
(set! ext-id (λ () x))
x)))))]
[(f arg ...)
@ -541,7 +541,7 @@
(quasisyntax/loc stx
(begin
(set! int-id arg)
(set! ext-id (λ () (let ([x (contract ctc int-id pos neg (quote ext-id) (quote-srcloc id))])
(set! ext-id (λ () (let ([x (contract ctc int-id pos neg (quote ext-id) (quote-srcloc ext-id))])
(set! ext-id (λ () x))
x)))))]
[(f arg ...)
@ -768,7 +768,7 @@
true-p
ext-id
(λ ()
(let ([x (contract ctc-id true-p blame-stx blame-id (quote marked-p) (quote-srcloc marked-p))])
(let ([x (contract ctc-id true-p blame-stx blame-id (quote ext-id) (quote-srcloc ext-id))])
(set! ext-id (λ () x))
x)))
...)