From 222751667311b5648af25e81864ae223835ae7aa Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Mon, 4 Apr 2011 23:38:09 -0400 Subject: [PATCH] fixing some bugs in macro-unwind.rkt: - in unwind-mz-let, last line, ",label" should just be "label" (no unquote) in reconstruct.rkt - in reconstruct-completed-define, last line, arg to attach-info should be a quasisyntax (#`), not syntax (#') --- collects/stepper/private/macro-unwind.rkt | 2 +- collects/stepper/private/reconstruct.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/stepper/private/macro-unwind.rkt b/collects/stepper/private/macro-unwind.rkt index b418b57ab6..c54814cce3 100644 --- a/collects/stepper/private/macro-unwind.rkt +++ b/collects/stepper/private/macro-unwind.rkt @@ -220,7 +220,7 @@ (label ([(var ...) rhs] ...) . bodies) (with-syntax ([(rhs2 ...) (map (lambda (rhs) (unwind rhs settings)) (syntax->list #'(rhs ...)))] [new-bodies (map (lambda (body) (unwind body settings)) (syntax->list #'bodies))]) - #`(,label ([(var ...) rhs2] ...) . new-bodies))])) + #`(label ([(var ...) rhs2] ...) . new-bodies))])) (define (unwind-local stx settings) (kernel-syntax-case stx #f diff --git a/collects/stepper/private/reconstruct.rkt b/collects/stepper/private/reconstruct.rkt index d03a6aedd4..5015680f30 100644 --- a/collects/stepper/private/reconstruct.rkt +++ b/collects/stepper/private/reconstruct.rkt @@ -682,7 +682,7 @@ vars)]) (if (= (length recon-vals) 1) (attach-info #`(define-values #,vars #,(car recon-vals)) exp) - (attach-info #'(define-values #,vars (values #,@recon-vals)) exp)))) + (attach-info #`(define-values #,vars (values #,@recon-vals)) exp))))