From 8c3c9417e138e35feff1ad8df1416f2e10d126f5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Jan 1999 18:28:32 +0000
Subject: [PATCH] Use more specific condition for signalling "non-blowfish"
 files.  This facilitates catching this error.

---
 v7/src/runtime/blowfish.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/blowfish.scm b/v7/src/runtime/blowfish.scm
index 028e186a2..89b517eb4 100644
--- 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")
-- 
2.25.1