From 788e8bb5f46be78e82772f98e7b3e766c28dfe2d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 3 Dec 2011 06:15:58 -0700 Subject: [PATCH] fix demod for inline-variant --- collects/compiler/demodularizer/gc-toplevels.rkt | 2 ++ collects/compiler/demodularizer/update-toplevels.rkt | 2 ++ 2 files changed, 4 insertions(+) diff --git a/collects/compiler/demodularizer/gc-toplevels.rkt b/collects/compiler/demodularizer/gc-toplevels.rkt index f212b66081..aa6b780389 100644 --- a/collects/compiler/demodularizer/gc-toplevels.rkt +++ b/collects/compiler/demodularizer/gc-toplevels.rkt @@ -66,6 +66,8 @@ (error 'build-graph "Doesn't handle syntax")] [(? seq-for-syntax?) (error 'build-graph "Doesn't handle syntax")] + [(struct inline-variant (direct inline)) + (build-graph! lhs direct)] [(struct req (reqs dummy)) (build-graph! lhs dummy)] [(? mod?) diff --git a/collects/compiler/demodularizer/update-toplevels.rkt b/collects/compiler/demodularizer/update-toplevels.rkt index 15584bb5d3..3cc4ef9e14 100644 --- a/collects/compiler/demodularizer/update-toplevels.rkt +++ b/collects/compiler/demodularizer/update-toplevels.rkt @@ -12,6 +12,8 @@ (error 'increment "Doesn't handle syntax")] [(? seq-for-syntax?) (error 'increment "Doesn't handle syntax")] + [(struct inline-variant (direct inline)) + (update direct)] [(struct req (reqs dummy)) (make-req reqs (update dummy))] [(? mod?)