From 201d6a32a793d7e0c1b7060708ccbb4fbb4ab8f8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 28 May 2018 13:54:17 -0700
Subject: [PATCH] Fix thinko: forgot to provide definition of file-error?.

---
 src/runtime/error.scm | 2 ++
 1 file changed, 2 insertions(+)

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
-- 
2.25.1