From 92db2b4fb33e5a79ade49271e88fee22cc7b81e4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 13 May 2012 06:54:17 -0600 Subject: [PATCH] zo-parse update for phase-shift syntax object marshaling --- collects/compiler/zo-parse.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/zo-parse.rkt b/collects/compiler/zo-parse.rkt index 4ddf836aab..84e5082332 100644 --- 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))]