From 287b379afab0d5924782544ee902bcdd8d12b170 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 19 Nov 2004 04:16:07 +0000 Subject: [PATCH] Don't use DEFAULT_OBJECT for auxiliary bindings. --- v7/src/microcode/interp.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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; ) { -- 2.25.1