From d8c28545eab69d4441b3fe9b6d82cd73c0919536 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 7 Dec 2008 19:07:47 +0000 Subject: [PATCH] fix decompiler for recent .zo change svn: r12722 --- collects/compiler/cffi.scrbl | 1 - collects/compiler/zo-parse.ss | 4 +++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/compiler/cffi.scrbl b/collects/compiler/cffi.scrbl index e12a084c37..9c1ae190d3 100644 --- a/collects/compiler/cffi.scrbl +++ b/collects/compiler/cffi.scrbl @@ -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" diff --git a/collects/compiler/zo-parse.ss b/collects/compiler/zo-parse.ss index 57472a6c38..5794a0d3bc 100644 --- a/collects/compiler/zo-parse.ss +++ b/collects/compiler/zo-parse.ss @@ -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))