From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 14 Jan 1999 18:28:32 +0000 (+0000)
Subject: Use more specific condition for signalling "non-blowfish" files.  This
X-Git-Tag: 20090517-FFI~4692
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8c3c9417e138e35feff1ad8df1416f2e10d126f5;p=mit-scheme.git

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 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")