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

diff --git a/src/runtime/error.scm b/src/runtime/error.scm
index 030c451e317a875c0103113e4dd022b0d28a08cd..e2a5fe9182398725ec6198f613c7d959179f3745 100644 (file)
--- 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))
 \f
   (set! condition-type:derived-port-error
        (make-condition-type 'derived-port-error condition-type:port-error