[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/srfi ChangeLog srfi-14.c
From: |
Gary Houston |
Subject: |
guile/guile-core/srfi ChangeLog srfi-14.c |
Date: |
Sun, 15 Jul 2001 08:20:31 -0700 |
CVSROOT: /cvs
Module name: guile
Branch: branch_release-1-6
Changes by: Gary Houston <address@hidden> 01/07/15 08:20:31
Modified files:
guile-core/srfi: ChangeLog srfi-14.c
Log message:
* srfi-14.c (scm_char_set_hash): recognise 0 instead of #f in the
opt arg to give default bound, as in final spec. don't allow
negative bounds.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.44.2.4&tr2=1.44.2.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-14.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.9.2.2&tr2=1.9.2.3&r1=text&r2=text
Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.48
guile/guile-core/srfi/ChangeLog:1.49
--- guile/guile-core/srfi/ChangeLog:1.48 Thu Jul 12 16:28:13 2001
+++ guile/guile-core/srfi/ChangeLog Sun Jul 15 08:16:30 2001
@@ -1,3 +1,9 @@
+2001-07-15 Gary Houston <address@hidden>
+
+ * srfi-14.c (scm_char_set_hash): recognise 0 instead of #f in the
+ opt arg to give default bound, as in final spec. don't allow
+ negative bounds.
+
2001-07-13 Marius Vollmer <address@hidden>
* srfi-2.scm (and-let*): Use `re-export-syntax' instead of
Index: guile/guile-core/srfi/srfi-14.c
diff -u guile/guile-core/srfi/srfi-14.c:1.11
guile/guile-core/srfi/srfi-14.c:1.12
--- guile/guile-core/srfi/srfi-14.c:1.11 Wed Jul 11 15:00:52 2001
+++ guile/guile-core/srfi/srfi-14.c Sun Jul 15 08:16:31 2001
@@ -178,20 +178,26 @@
SCM_DEFINE (scm_char_set_hash, "char-set-hash", 1, 1, 0,
(SCM cs, SCM bound),
"Compute a hash value for the character set @var{cs}. If\n"
- "@var{bound} is given and not @code{#f}, it restricts the\n"
+ "@var{bound} is given and non-zero, it restricts the\n"
"returned value to the range 0 @dots{} @var{bound - 1}.")
#define FUNC_NAME s_scm_char_set_hash
{
+ const int default_bnd = 871;
int bnd;
long * p;
unsigned val = 0;
int k;
SCM_VALIDATE_SMOB (1, cs, charset);
- if (SCM_UNBNDP (bound) || SCM_FALSEP (bound))
- bnd = 871;
+
+ if (SCM_UNBNDP (bound))
+ bnd = default_bnd;
else
- SCM_VALIDATE_INUM_COPY (2, bound, bnd);
+ {
+ SCM_VALIDATE_INUM_MIN_COPY (2, bound, 0, bnd);
+ if (bnd == 0)
+ bnd = default_bnd;
+ }
p = (long *) SCM_SMOB_DATA (cs);
for (k = 0; k < SCM_CHARSET_SIZE - 1; k++)
- guile/guile-core/srfi ChangeLog srfi-14.c, Gary Houston, 2001/07/15
- guile/guile-core/srfi ChangeLog srfi-14.c,
Gary Houston <=
- guile/guile-core/srfi ChangeLog srfi-14.c, Gary Houston, 2001/07/15
- guile/guile-core/srfi ChangeLog srfi-14.c, Gary Houston, 2001/07/15
- guile/guile-core/srfi ChangeLog srfi-14.c, Martin Grabmueller, 2001/07/16
- guile/guile-core/srfi ChangeLog srfi-14.c, Martin Grabmueller, 2001/07/16
- guile/guile-core/srfi ChangeLog srfi-14.c, Martin Grabmueller, 2001/07/16
- guile/guile-core/srfi ChangeLog srfi-14.c, Martin Grabmueller, 2001/07/16
- guile/guile-core/srfi ChangeLog srfi-14.c, Gary Houston, 2001/07/22
- guile/guile-core/srfi ChangeLog srfi-14.c, Gary Houston, 2001/07/22
- guile/guile-core/srfi ChangeLog srfi-14.c, Gary Houston, 2001/07/22
- guile/guile-core/srfi ChangeLog srfi-14.c, Gary Houston, 2001/07/22