Reword missing-support error message to clarify its meaning.

diff --git a/v7/src/runtime/berkeley-db.scm b/v7/src/runtime/berkeley-db.scm
index d4b00528485d37e1d280c993bb6342a07bfe62a4..f75cab9c5a1e3ad77e3ca656ac57a0cbff2b6b0f 100644 (file)
--- a/v7/src/runtime/berkeley-db.scm
+++ b/v7/src/runtime/berkeley-db.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: berkeley-db.scm,v 1.8 2008/02/14 03:34:07 cph Exp $
+$Id: berkeley-db.scm,v 1.9 2008/03/11 04:00:30 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -210,7 +210,7 @@ USA.
 
 (define (guarantee-bdb-available)
   (if (not (bdb-available?))
-      (error "No Berkeley DB support in this sytem.")))
+      (error "This Scheme system was built without Berkeley DB support.")))
 \f
 (define (create-bdb env flags)
   (guarantee-bdb-available)

diff --git a/v7/src/runtime/crypto.scm b/v7/src/runtime/crypto.scm
index 67f9634b710d6ec97a50e0b318d0954608822aa2..1820038be644dc8b24c1487aad9780e96e00af02 100644 (file)
--- a/v7/src/runtime/crypto.scm
+++ b/v7/src/runtime/crypto.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: crypto.scm,v 14.21 2008/01/30 20:02:29 cph Exp $
+$Id: crypto.scm,v 14.22 2008/03/11 03:59:34 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -302,7 +302,7 @@ USA.
        ((%md5-available?)
         (%md5-file filename))
        (else
-        (error "No MD5 support available."))))
+        (error "This Scheme system was built without MD5 support."))))
 
 (define (%md5-file filename)
   (call-with-binary-input-file filename
@@ -332,7 +332,7 @@ USA.
        ((%md5-available?)
         (%md5-substring string start end))
        (else
-        (error "No MD5 support available."))))
+        (error "This Scheme system was built without MD5 support."))))
 
 (define (%md5-substring string start end)
   (let ((context ((ucode-primitive md5-init 0))))

diff --git a/v7/src/runtime/gdbm.scm b/v7/src/runtime/gdbm.scm
index b63e0c7f722ae273ff2a118eabfb53a25ddc8216..a1fd683d1f21550866bd6a6bdf1d07c09ee879cf 100644 (file)
--- a/v7/src/runtime/gdbm.scm
+++ b/v7/src/runtime/gdbm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: gdbm.scm,v 1.11 2008/01/30 20:02:30 cph Exp $
+$Id: gdbm.scm,v 1.12 2008/03/11 04:00:52 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -57,7 +57,7 @@ USA.
 
 (define (gdbm-open filename block-size flags mode)
   (if (not (gdbm-available?))
-      (error "No gdbm support in this sytem."))
+      (error "This Scheme system was built without gdbm support."))
   (let ((filename (->namestring (merge-pathnames filename))))
     (without-interrupts
      (lambda ()

diff --git a/v7/src/runtime/pgsql.scm b/v7/src/runtime/pgsql.scm
index c92c00e1e7d2a0d54a0b3d471d16ccafada237d6..d707e5145bfe1ec9badd14df4ef7ce7b651de36e 100644 (file)
--- a/v7/src/runtime/pgsql.scm
+++ b/v7/src/runtime/pgsql.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pgsql.scm,v 1.15 2008/02/14 03:34:09 cph Exp $
+$Id: pgsql.scm,v 1.16 2008/03/11 03:57:45 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -167,7 +167,7 @@ USA.
 
 (define (guarantee-pgsql-available)
   (if (not (pgsql-available?))
-      (error "No PostgreSQL support in this sytem.")))
+      (error "This Scheme system was built without PostgreSQL support.")))
 \f
 (define condition-type:pgsql-error
   (make-condition-type 'PGSQL-ERROR condition-type:error '()