From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 4 Dec 2009 21:36:08 +0000 (-0500)
Subject: Fix bug in recent change to runtime/uenvir.scm's WALK-GLOBAL.
X-Git-Tag: 20100708-Gtk~221
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=49ce697925f6ce900d5875c12b314ad16d7f1b60;p=mit-scheme.git

Fix bug in recent change to runtime/uenvir.scm's WALK-GLOBAL.

MAP-ENTRY takes two arguments, not just one.
---

diff --git a/src/runtime/uenvir.scm b/src/runtime/uenvir.scm
index 9222d141f..11e922e8e 100644
--- a/src/runtime/uenvir.scm
+++ b/src/runtime/uenvir.scm
@@ -250,7 +250,7 @@ USA.
 		     (system-pair-cdr name)))))
 	     (if (and (not (unbound-reference-trap? value))
 		      (keep? value))
-		 (set! result (cons (map-entry value) result)))))))
+		 (set! result (cons (map-entry name value) result)))))))
     result))
 
 (define (special-unbound-name? name)