fix demod for inline-variant

This commit is contained in:
Matthew Flatt 2011-12-03 06:15:58 -07:00
parent 61fa9fe7dc
commit 788e8bb5f4
2 changed files with 4 additions and 0 deletions

View File

@ -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?)

View File

@ -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?)