From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 16 Jul 1997 02:37:41 +0000 (+0000)
Subject: Conditionalized EMPTY_LIST_VALUE code.
X-Git-Tag: 20090517-FFI~5048
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9673a629023b871d906a21ec094656720882b4bf;p=mit-scheme.git

Conditionalized EMPTY_LIST_VALUE code.
---

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 92a0baa61..37218f593 100644
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fasload.c,v 9.82 1996/10/02 18:57:31 cph Exp $
+$Id: fasload.c,v 9.83 1997/07/16 02:37:41 adams Exp $
 
 Copyright (c) 1987-96 Massachusetts Institute of Technology
 
@@ -451,8 +451,10 @@ DEFUN (Relocate_Block, (Scan, Stop_At),
       case TC_BROKEN_HEART:
       case TC_MANIFEST_SPECIAL_NM_VECTOR:
       case_Fasload_Non_Pointer:
+#ifdef EMPTY_LIST_VALUE
 	if (Temp == EMPTY_LIST_VALUE)
 	  * Scan = EMPTY_LIST;
+#endif
         Scan += 1;
 	break;