From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 31 Aug 1993 18:54:33 +0000 (+0000)
Subject: If the fixed objects vector is not valid, edwin_auto_save should not
X-Git-Tag: 20090517-FFI~7946
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=179326764a4310bf2fac60ecda38e68dee93183f;p=mit-scheme.git

If the fixed objects vector is not valid, edwin_auto_save should not
fail.
---

diff --git a/v7/src/microcode/term.c b/v7/src/microcode/term.c
index 9ddb62507..7ff1636ca 100644
--- a/v7/src/microcode/term.c
+++ b/v7/src/microcode/term.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: term.c,v 1.8 1993/08/24 06:10:01 cph Exp $
+$Id: term.c,v 1.9 1993/08/31 18:54:33 gjr Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -254,7 +254,12 @@ DEFUN_VOID (edwin_auto_save)
      end up back here, we continue saving, skipping the entries
      already saved as well as the entry that caused the error.  */
   if (edwin_auto_save_position == SHARP_T)
-    edwin_auto_save_position = (Get_Fixed_Obj_Slot (FIXOBJ_EDWIN_AUTO_SAVE));
+  {
+    if (Valid_Fixed_Obj_Vector ())
+      edwin_auto_save_position = (Get_Fixed_Obj_Slot (FIXOBJ_EDWIN_AUTO_SAVE));
+    else
+      edwin_auto_save_position = SHARP_F;
+  }
   while (PAIR_P (edwin_auto_save_position))
     {
       SCHEME_OBJECT entry = (PAIR_CAR (edwin_auto_save_position));