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 9222d141f05f6fd31a96976d9668e7dfdd90a501..11e922e8e19d578a194abf380b5aeef80d881eb1 100644 (file)
--- 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)