From 57e9001868385a34f39e5375c3233b8b8fba3710 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Fri, 8 Mar 2013 23:04:32 -0500 Subject: [PATCH] Fix a couple of identifer references that were overlooked. --- collects/racket/contract/region.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/racket/contract/region.rkt b/collects/racket/contract/region.rkt index 758227d26d..e73fe96b7f 100644 --- a/collects/racket/contract/region.rkt +++ b/collects/racket/contract/region.rkt @@ -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))) ...)