From a5fe5a42dfab7e37e00d8da720119117be8484af Mon Sep 17 00:00:00 2001
From: Spencer Florence <florence@ccs.neu.edu>
Date: Sat, 30 May 2015 10:10:51 -0500
Subject: [PATCH] fixed order-of-annotator error

---
 strace.rkt | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/strace.rkt b/strace.rkt
index 3f57f99..2ab3c41 100644
--- a/strace.rkt
+++ b/strace.rkt
@@ -85,6 +85,13 @@
                  #'(m name lang
                       (#%module-begin add ... body ...)))
                (rebuild-syntax stx disarmed expr))]))]
+       [(b a ...)
+        (eq? 'begin (syntax-e #'b))
+        (let ()
+          (define/with-syntax (body ...)
+            (map (lambda (e) (loop e #f))
+                 (syntax->list #'(a ...))))
+          #'(b body ...))]
        [_ (if top #f expr)])))
 
   (define inspector (variable-reference->module-declaration-inspector
@@ -151,10 +158,9 @@
 
 (define (rebuild-syntax stx disarmed armed)
   (syntax-rearm
-   (namespace-syntax-introduce
-    (datum->syntax
-     disarmed
-     (syntax-e stx)
-     disarmed
-     disarmed))
+   (datum->syntax
+    disarmed
+    (syntax-e stx)
+    disarmed
+    disarmed)
    armed))