From 19b3d09237f1f3076c79de71857b1b25c23dcfd0 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 21 Oct 2015 12:49:43 -0400 Subject: [PATCH] Fix for new macro system. This may reduce the quality of the generated source locations, but I didn't want to add too much complexity to this PR. --- control/tagged-begin.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/control/tagged-begin.rkt b/control/tagged-begin.rkt index 77b880d..74f1293 100644 --- a/control/tagged-begin.rkt +++ b/control/tagged-begin.rkt @@ -110,15 +110,15 @@ ] [tags (map car tag-exprs-list)]) ; tag-exprs-list = ( (tag_1 (e1 ...)) (tag_2 (e2 ...)) ... ) - (with-syntax ([go (syntax-local-introduce (syntax/loc stx go))] - [return (syntax-local-introduce (syntax/loc stx return))]) - #`((let/cc go - (let ([return (lambda (v) (go (lambda () v)))]) + (with-syntax ([go-id (datum->syntax stx 'go)] + [return-id (datum->syntax stx 'return)]) + #`((let/cc go-id + (let ([return-id (lambda (v) (go-id (lambda () v)))]) (letrec (#,@(map generate-binding (drop-right tag-exprs-list 1) (cdr tags)) - #,(generate-last-binding (last tag-exprs-list) #'return)) + #,(generate-last-binding (last tag-exprs-list) #'return-id)) (#,first-tag))))))))])) (module+ test (require rackunit))