zo-parse update for phase-shift syntax object marshaling
This commit is contained in:
parent
562df19714
commit
92db2b4fb3
|
@ -686,7 +686,7 @@
|
||||||
[(box? a)
|
[(box? a)
|
||||||
(match (unbox a)
|
(match (unbox a)
|
||||||
[(list (? symbol?) ...) (make-prune (unbox a))]
|
[(list (? symbol?) ...) (make-prune (unbox a))]
|
||||||
[`#(,amt ,src ,dest #f #f)
|
[`#(,amt ,src ,dest #f #f ,cancel-id)
|
||||||
(make-phase-shift amt
|
(make-phase-shift amt
|
||||||
(parse-module-path-index cp src)
|
(parse-module-path-index cp src)
|
||||||
(parse-module-path-index cp dest))]
|
(parse-module-path-index cp dest))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user