Use more specific condition for signalling "non-blowfish" files. This

facilitates catching this error.

diff --git a/v7/src/runtime/blowfish.scm b/v7/src/runtime/blowfish.scm
index 028e186a2ba037d79ded828a05b557959e5fee58..89b517eb4423f15c09169e50fbc76d42815a6afc 100644 (file)
--- a/v7/src/runtime/blowfish.scm
+++ b/v7/src/runtime/blowfish.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: blowfish.scm,v 1.4 1999/01/02 06:11:34 cph Exp $
+$Id: blowfish.scm,v 1.5 1999/01/14 18:28:32 cph Exp $
 
 Copyright (c) 1997, 1999 Massachusetts Institute of Technology
 
@@ -70,7 +70,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
 (define (read-blowfish-file-header port)
   (if (not (string=? (read-line port) blowfish-file-header))
-      (error "Not a Blowfish file:" port)))
+      (error:bad-range-argument port 'READ-BLOWFISH-FILE-HEADER)))
 
 (define blowfish-file-header
   "Blowfish, 16 rounds")