From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 May 2018 20:54:17 +0000 (-0700)
Subject: Fix thinko: forgot to provide definition of file-error?.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=201d6a32a793d7e0c1b7060708ccbb4fbb4ab8f8;p=mit-scheme.git

Fix thinko: forgot to provide definition of file-error?.
---

diff --git a/src/runtime/error.scm b/src/runtime/error.scm
index 030c451e3..e2a5fe918 100644
--- a/src/runtime/error.scm
+++ b/src/runtime/error.scm
@@ -1023,6 +1023,8 @@ USA.
     (set! condition-type:file-error (anonymous-error 'file-error 'filename))
     (set! condition-type:cell-error (anonymous-error 'cell-error 'location))
     (set! condition-type:thread-error (anonymous-error 'thread-error 'thread)))
+  (set! file-error?
+	(condition-predicate condition-type:file-error))
 
   (set! condition-type:derived-port-error
 	(make-condition-type 'derived-port-error condition-type:port-error