zo-parse update for phase-shift syntax object marshaling

2012-05-13 06:54:17 -06:00 · 2012-05-13 06:54:17 -06:00 · 92db2b4fb3
commit 92db2b4fb3
parent 562df19714
1 changed files with 1 additions and 1 deletions
--- a/collects/compiler/zo-parse.rkt
+++ b/collects/compiler/zo-parse.rkt
@ -686,7 +686,7 @@
      [(box? a)
       (match (unbox a)
         [(list (? symbol?) ...) (make-prune (unbox a))]
-         [`#(,amt ,src ,dest #f #f) 
+         [`#(,amt ,src ,dest #f #f ,cancel-id) 
          (make-phase-shift amt 
                            (parse-module-path-index cp src)
                            (parse-module-path-index cp dest))]