From 8d07232b7b78a50e3ede8840a8d58079866404b9 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 26 Jul 1995 23:23:38 +0000
Subject: [PATCH] Added code to fix '() according to #F = '() or #F != '().

---
 v7/src/microcode/fasload.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 918506c61..09bccefcb 100644
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fasload.c,v 9.80 1994/01/08 17:05:00 gjr Exp $
+$Id: fasload.c,v 9.81 1995/07/26 23:23:38 adams Exp $
 
 Copyright (c) 1987-1994 Massachusetts Institute of Technology
 
@@ -448,6 +448,8 @@ DEFUN (Relocate_Block, (Scan, Stop_At),
       case TC_BROKEN_HEART:
       case TC_MANIFEST_SPECIAL_NM_VECTOR:
       case_Fasload_Non_Pointer:
+	if (Temp == EMPTY_LIST_VALUE)
+	  * Scan = EMPTY_LIST;
         Scan += 1;
 	break;
 
-- 
2.25.1