From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Nov 2004 04:16:07 +0000 (+0000)
Subject: Don't use DEFAULT_OBJECT for auxiliary bindings.
X-Git-Tag: 20090517-FFI~1469
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=287b379afab0d5924782544ee902bcdd8d12b170;p=mit-scheme.git

Don't use DEFAULT_OBJECT for auxiliary bindings.
---

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 748dd52ea..7d30caaf9 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -1,9 +1,9 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.101 2004/11/18 18:14:06 cph Exp $
+$Id: interp.c,v 9.102 2004/11/19 04:16:07 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
-Copyright 1992,2000,2001,2002,2003 Massachusetts Institute of Technology
+Copyright 1992,2000,2001,2002,2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -1411,7 +1411,7 @@ DEFUN (Interpret, (pop_return_p), int pop_return_p)
 		  if (rest_flag)
 		    (*scan++) = EMPTY_LIST;
 		  for (i = auxes; (--i) >= 0; )
-		    (*scan++) = DEFAULT_OBJECT;
+		    (*scan++) = UNASSIGNED_OBJECT;
 		}
 	      else
 		{
@@ -1422,7 +1422,7 @@ DEFUN (Interpret, (pop_return_p), int pop_return_p)
 		    (*scan++) = (STACK_POP ());
 		  (*scan++) = list;
 		  for (i = auxes; (--i) >= 0; )
-		    (*scan++) = DEFAULT_OBJECT;
+		    (*scan++) = UNASSIGNED_OBJECT;
 		  /* Now scan == OBJECT_ADDRESS (list) */
 		  for (i = (nargs - params); (--i) >= 0; )
 		    {