fix decompiler for recent .zo change

svn: r12722
This commit is contained in:
Matthew Flatt 2008-12-07 19:07:47 +00:00
parent 4bd58d9473
commit d8c28545ea
2 changed files with 3 additions and 2 deletions

View File

@ -272,7 +272,6 @@ Expands to a use of @scheme[c-declare] with the content of
@scheme[path-spec]. The @scheme[path-spec] has the same form as for
@schememodname[mzlib/include]'s @scheme[include].}
@(bibliography
(bib-entry
#:key "Feeley98"

View File

@ -197,7 +197,9 @@
[`(,name ,self-modidx ,lang-info ,functional? ,et-functional?
,rename ,max-let-depth ,dummy
,prefix ,kernel-exclusion ,reprovide-kernel?
,indirect-provides ,num-indirect-provides ,protects
,indirect-provides ,num-indirect-provides
,indirect-et-provides ,num-indirect-et-provides
,protects ,et-protects
,provide-phase-count . ,rest)
(let ([phase-data (take rest (* 8 provide-phase-count))])
(match (list-tail rest (* 8 provide-phase-count))