Do something reasonable if the externs file does not exist.

diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index bf1a5c79b4ab0dc447dd4aa7f27e27bac2a13852..69f9c38f3452dc8c2f4a05cd172446cb193594f2 100644 (file)
--- a/v7/src/sf/toplev.scm
+++ b/v7/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 3.1 1987/03/13 04:14:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/toplev.scm,v 3.2 1987/03/19 17:23:08 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -216,8 +216,12 @@ Currently only the 68000 implementation needs this."
                   (write-string " -- done")))))))
 \f
 (define (read-externs-file pathname)
-  (fasload (merge-pathnames (->pathname pathname)
-                           sf/default-externs-pathname)))
+  (let ((pathname
+        (merge-pathnames (->pathname pathname) sf/default-externs-pathname)))
+    (if (file-exists? pathname)
+       (fasload pathname)
+       (begin (warn "Nonexistent externs file" (pathname->string pathname))
+              '()))))
 
 (define (write-externs-file pathname externs)
   (cond ((not (null? externs))

diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm
index aab94f434ed56135c7ef8907f9e301ff196d1f2b..145e10271e0cf0e0b72c9d8a30adc34b95740584 100644 (file)
--- a/v8/src/sf/toplev.scm
+++ b/v8/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 3.1 1987/03/13 04:14:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/toplev.scm,v 3.2 1987/03/19 17:23:08 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -216,8 +216,12 @@ Currently only the 68000 implementation needs this."
                   (write-string " -- done")))))))
 \f
 (define (read-externs-file pathname)
-  (fasload (merge-pathnames (->pathname pathname)
-                           sf/default-externs-pathname)))
+  (let ((pathname
+        (merge-pathnames (->pathname pathname) sf/default-externs-pathname)))
+    (if (file-exists? pathname)
+       (fasload pathname)
+       (begin (warn "Nonexistent externs file" (pathname->string pathname))
+              '()))))
 
 (define (write-externs-file pathname externs)
   (cond ((not (null? externs))