From 49ce697925f6ce900d5875c12b314ad16d7f1b60 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 4 Dec 2009 16:36:08 -0500
Subject: [PATCH] Fix bug in recent change to runtime/uenvir.scm's WALK-GLOBAL.
MAP-ENTRY takes two arguments, not just one.
---
src/runtime/uenvir.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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)
--
2.25.1