guile-cvs
[Top][All Lists]
Advanced

[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++)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]