From 584843567bd2ceb4db82704a7d38275d54d79588 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 22 Aug 1991 15:43:39 +0000
Subject: [PATCH] (Arthur and Jinx:) Add special restarts for open-file errors.

---
 v7/src/runtime/runtime.pkg | 3 ++-
 v8/src/runtime/runtime.pkg | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 305eb2a50..50d2d17cb 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.116 1991/08/16 18:46:42 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.117 1991/08/22 15:43:39 arthur Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -613,6 +613,7 @@ MIT in each case. |#
 	  restart/properties
 	  restart/put!
 	  restart?
+	  retry
 	  signal-condition
 	  standard-error-handler
 	  standard-error-hook
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 848241cbd..103a5af2c 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.116 1991/08/16 18:46:42 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.117 1991/08/22 15:43:39 arthur Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -613,6 +613,7 @@ MIT in each case. |#
 	  restart/properties
 	  restart/put!
 	  restart?
+	  retry
 	  signal-condition
 	  standard-error-handler
 	  standard-error-hook
-- 
2.25.1