From b75eab9467d21a206c51c74818023ae181679df6 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 13 Apr 2007 21:25:34 +0000 Subject: [PATCH] Macro stepper: reductions preserve properties etc svn: r5931 original commit: bdd53d5f3ca5354abf865db63b7b6be4b134b1a7 --- collects/macro-debugger/model/context.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/macro-debugger/model/context.ss b/collects/macro-debugger/model/context.ss index f441fd0..9ddf18a 100644 --- a/collects/macro-debugger/model/context.ss +++ b/collects/macro-debugger/model/context.ss @@ -104,7 +104,7 @@ (cond [(pair? stx) (cons x (cdr stx))] [(syntax? stx) - (datum->syntax-object stx (cons x (stx-cdr stx)))] + (datum->syntax-object stx (cons x (cdr (syntax-e stx))) stx stx)] [else (raise-type-error 'stx-replcar "stx-pair" stx)])) ;; stx-replcdr : syntax syntax -> syntax @@ -112,7 +112,7 @@ (cond [(pair? stx) (cons (car stx) x)] [(and (syntax? stx) (pair? (syntax-e stx))) - (datum->syntax-object stx (cons (stx-car stx) x))] + (datum->syntax-object stx (cons (car (syntax-e stx)) x) stx stx)] [else (raise-type-error 'stx-replcdr "stx-pair" stx)])) (define (sd x)