From 03751ec33a32a6cd6e940aa1a84c6f512f6029ca Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 22 Jul 2015 20:26:31 -0600
Subject: [PATCH] Revert "update for revised bytecode"

This reverts commit 6933512ec26f61695b88879c601080e5ddd02d6a.

The bytecode-format change was reverted.
---
 zo-lib/compiler/zo-parse.rkt | 17 +++--------------
 zo-lib/info.rkt              |  2 +-
 2 files changed, 4 insertions(+), 15 deletions(-)

diff --git a/zo-lib/compiler/zo-parse.rkt b/zo-lib/compiler/zo-parse.rkt
index e21dd455e2..9c411c323f 100644
--- a/zo-lib/compiler/zo-parse.rkt
+++ b/zo-lib/compiler/zo-parse.rkt
@@ -1265,19 +1265,9 @@
                                 null
                                 #f))
               (hash-set! ht s sc)
-              (define bindings-l
-                (if (= kind 1) ; has multi owner
-                    (match v
-                      [(cons (? number?) (cons multi bindings-l))
-                       (set-scope-multi-owner! sc (decode-multi-scope multi ht))
-                       bindings-l])
-                    (match v
-                      [(? number?) #f]
-                      [(cons (? number?) bindings-l)
-                       bindings-l])))
-              (when bindings-l
+              (unless (number? v)
                 (define-values (bulk-bindings end)
-                  (let loop ([l bindings-l] [bulk-bindings null])
+                  (let loop ([l (cdr v)] [bulk-bindings null])
                     (cond
                      [(pair? l)
                       (loop (cdr l) (cons (list (decode-scope-set (caar l) ht)
@@ -1420,8 +1410,7 @@
                    [(= (add1 i) (vector-length ms)) null]
                    [else
                     (define s (decode-scope (vector-ref ms (add1 i)) ht))
-                    (when (and (scope-multi-owner s)
-                               (not (eq? (scope-multi-owner s) multi)))
+                    (when (scope-multi-owner s)
                       (error 'decode-wrap "bad scope owner: ~e while reading ~e"
                              (scope-multi-owner s)
                              multi))
diff --git a/zo-lib/info.rkt b/zo-lib/info.rkt
index fc36b36f5a..b6e36644e7 100644
--- a/zo-lib/info.rkt
+++ b/zo-lib/info.rkt
@@ -2,7 +2,7 @@
 
 (define collection 'multi)
 
-(define deps '(["base" #:version "6.2.900.5"]))
+(define deps '("base"))
 
 (define pkg-desc "Libraries for handling zo files")