www

commit b75eab9467d21a206c51c74818023ae181679df6
parent cd359e9c9a1968f4af93d0911750f8332937aab6
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri, 13 Apr 2007 21:25:34 +0000

Macro stepper: reductions preserve properties etc

svn: r5931

original commit: bdd53d5f3ca5354abf865db63b7b6be4b134b1a7

Diffstat:
M
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
@@ -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)