From aba257c81646bf2d5775565739a5a4ae13fcd885 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 17 May 2009 13:47:28 +0000
Subject: [PATCH] fix shadowing of language-supplied bindings when loading from
 bytecode (merge to 4.2)

svn: r14851
---
 src/mzscheme/src/stxobj.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/stxobj.c b/src/mzscheme/src/stxobj.c
index c719a54981..1d85c7227e 100644
--- a/src/mzscheme/src/stxobj.c
+++ b/src/mzscheme/src/stxobj.c
@@ -1893,7 +1893,8 @@ static void unmarshal_rename(Module_Renames *mrn,
   if (sealed)
     mrn->sealed = 0;
     
-  for (l = mrn->unmarshal_info; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) {
+  l = scheme_reverse(mrn->unmarshal_info);
+  for (; SCHEME_PAIRP(l); l = SCHEME_CDR(l)) {
     scheme_do_module_rename_unmarshal((Scheme_Object *)mrn, SCHEME_CAR(l),
 				      modidx_shift_from, modidx_shift_to,
 				      export_registry);