From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Mar 1987 17:23:08 +0000 (+0000)
Subject: Do something reasonable if the externs file does not exist.
X-Git-Tag: 20090517-FFI~13664
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4391e883876f0a0308b67a348316a652c4b2f40d;p=mit-scheme.git

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 bf1a5c79b..69f9c38f3 100644
--- 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")))))))
 
 (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 aab94f434..145e10271 100644
--- 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")))))))
 
 (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))