suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix demod for inline-variant

Browse Source 
original commit: 788e8bb5f4
This commit is contained in:
Matthew Flatt 2011-12-03 06:15:58 -07:00
parent 52fa72bd6b
commit 1963cc91b7
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/demodularizer/gc-toplevels.rkt
View File

@ -66,6 +66,8 @@
(error 'build-graph "Doesn't handle syntax")] (error 'build-graph "Doesn't handle syntax")]
[(? seq-for-syntax?) [(? seq-for-syntax?)
(error 'build-graph "Doesn't handle syntax")] (error 'build-graph "Doesn't handle syntax")]
[(struct inline-variant (direct inline))
(build-graph! lhs direct)]
[(struct req (reqs dummy)) [(struct req (reqs dummy))
(build-graph! lhs dummy)] (build-graph! lhs dummy)]
[(? mod?) [(? mod?)

2
collects/compiler/demodularizer/update-toplevels.rkt
View File

@ -12,6 +12,8 @@
(error 'increment "Doesn't handle syntax")] (error 'increment "Doesn't handle syntax")]
[(? seq-for-syntax?) [(? seq-for-syntax?)
(error 'increment "Doesn't handle syntax")] (error 'increment "Doesn't handle syntax")]
[(struct inline-variant (direct inline))
(update direct)]
[(struct req (reqs dummy)) [(struct req (reqs dummy))
(make-req reqs (update dummy))] (make-req reqs (update dummy))]
[(? mod?) [(? mod?)