zo-parse update for phase-shift syntax object marshaling

original commit: 92db2b4fb3
2012-05-13 06:54:17 -06:00 · 2012-05-13 06:54:17 -06:00 · 95e0451656
commit 95e0451656
parent 5139f5e8d6
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))]