www

commit 0bdb59a7c29aa9a9d20e5c458b9d782406730e74
parent 0aaf1e3a12bbdb54d3ccdcbdc56aa5ccc82619b9
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Thu, 19 Nov 2009 04:39:21 +0000

macro-stepper: added second error location for set!

svn: r16886

original commit: 89385ad3095d6c66bb6a72d0caed53778ad70124

Diffstat:
M
collects/macro-debugger/model/deriv-c.ss
 | 
4
++--
M
collects/macro-debugger/model/deriv-parser.ss
 | 
5
+++--
M
collects/macro-debugger/model/reductions.ss
 | 
3
++-

3 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/collects/macro-debugger/model/deriv-c.ss b/collects/macro-debugger/model/deriv-c.ss
@@ -58,12 +58,12 @@
 ;;   (make-p:#%expression <Base> Deriv ?Stx)
 ;;   (make-p:if <Base> Boolean Deriv Deriv Deriv)
 ;;   (make-p:wcm <Base> Deriv Deriv Deriv)
-;;   (make-p:set! <Base> Rs Deriv)
+;;   (make-p:set! <Base> Rs ?Exn Deriv)
 ;;   (make-p:set!-macro <Base> Rs Deriv)
 (define-struct (p:#%expression prule) (inner untag) #:transparent)
 (define-struct (p:if prule) (test then else) #:transparent)
 (define-struct (p:wcm prule) (key mark body) #:transparent)
-(define-struct (p:set! prule) (id-resolves rhs) #:transparent)
+(define-struct (p:set! prule) (id-resolves ?2 rhs) #:transparent)
 (define-struct (p:set!-macro prule) (deriv) #:transparent)
 
 ;;   (make-p:#%app <Base> Stx LDeriv)
diff --git a/collects/macro-debugger/model/deriv-parser.ss b/collects/macro-debugger/model/deriv-parser.ss
@@ -486,8 +486,9 @@
 
     (PrimSet
      (#:args e1 e2 rs)
-     [(prim-set! ! Resolves next (? EE))
-      (make p:set! e1 e2 rs $2 $3 $5)]
+     ;; Unrolled to avoid shift/reduce
+     [(prim-set! ! resolve Resolves ! next (? EE))
+      (make p:set! e1 e2 rs $2 (cons $3 $4) $5 $7)]
      [(prim-set! Resolves (? MacroStep) (? EE))
       (make p:set!-macro e1 e2 rs #f ($3 e1 $2 $4))])
 
diff --git a/collects/macro-debugger/model/reductions.ss b/collects/macro-debugger/model/reductions.ss
@@ -235,10 +235,11 @@
      (R [! ?1]
         [#:pattern ?form]
         [Expr ?form deriv])]
-    [(Wrap p:set! (e1 e2 rs ?1 id-rs rhs))
+    [(Wrap p:set! (e1 e2 rs ?1 id-rs ?2 rhs))
      (R [! ?1]
         [#:pattern (?set! ?var ?rhs)]
         [#:learn id-rs]
+        [! ?2]
         [Expr ?rhs rhs])]
 
     ;; Macros