From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Dec 2001 03:57:00 +0000 (+0000)
Subject: Must call MAP_TO_UNASSIGNED on value of definition when creating a new
X-Git-Tag: 20090517-FFI~2407
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f5b0f31d73af35362a616bb4065f1c1d4dfd70fd;p=mit-scheme.git

Must call MAP_TO_UNASSIGNED on value of definition when creating a new
binding.
---

diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index 6eda3f47c..e0bdd2b82 100644
--- a/v7/src/microcode/lookup.c
+++ b/v7/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: lookup.c,v 9.65 2001/08/14 01:15:05 cph Exp $
+$Id: lookup.c,v 9.66 2001/12/07 03:57:00 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -456,7 +456,7 @@ define_variable (SCHEME_OBJECT environment, SCHEME_OBJECT symbol,
 	  : 0));
 
     /* Create the binding.  */
-    pair = (cons (symbol, value));
+    pair = (cons (symbol, (MAP_TO_UNASSIGNED (value))));
     ((GET_EXTENDED_FRAME_BINDINGS (environment)) [length]) = pair;
     SET_EXTENDED_FRAME_LENGTH (environment, (length + 1));