(Arthur and Jinx:) Add special restarts for open-file errors.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 305eb2a50334d34d2c8bea803fe02478441c0133..50d2d17cb0f4532c2a966293a9825c67b8a58295 100644 (file)
--- 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 848241cbd9ec673c683badba67d64f18496bd46c..103a5af2c405c25cecb42487103f26d4b0860284 100644 (file)
--- 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