From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 Nov 1990 23:17:35 +0000 (+0000)
Subject: Catch file errors when loading "ffi" database.
X-Git-Tag: 20090517-FFI~11024
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=15156ab1764cb2827fd11589ac94c6e66eb1f644;p=mit-scheme.git

Catch file errors when loading "ffi" database.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 2beb88200..49f72c7c8 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.142 1990/10/09 16:24:29 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.143 1990/11/21 23:17:35 cph Rel $
 ;;;
 ;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -184,7 +184,17 @@ Argument means don't offer to use auto-save file."
   (initialize-buffer! buffer)
   (let ((filename (os/find-file-initialization-filename pathname)))
     (if filename
-	(let ((database (load-edwin-file filename '(EDWIN) false)))
+	(let ((database
+	       (with-output-to-transcript-buffer
+		(lambda ()
+		  (bind-condition-handler '() evaluation-error-handler
+		    (lambda ()
+		      (catch-file-errors (lambda () false)
+			(lambda ()
+			  (fluid-let ((load/suppress-loading-message? true))
+			    (load filename
+				  '(EDWIN)
+				  edwin-syntax-table))))))))))
 	  (if (and (procedure? database)
 		   (procedure-arity-valid? database 0))
 	      (add-buffer-initialization! buffer database)