guile/guile-core/srfi ChangeLog srfi-14.c

[Martin Grabmueller]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Martin Grabmueller <address@hidden>     01/07/16 11:51:11

Modified files:
        guile-core/srfi: ChangeLog srfi-14.c 

Log message:
        (scm_char_set_map): Bug-fix: char-set-map was modifying the
        argument instead of the return value.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.51&tr2=1.52&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-14.c.diff?cvsroot=OldCVS&tr1=1.14&tr2=1.15&r1=text&r2=text

Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.51 
guile/guile-core/srfi/ChangeLog:1.52
--- guile/guile-core/srfi/ChangeLog:1.51        Mon Jul 16 08:47:02 2001
+++ guile/guile-core/srfi/ChangeLog     Mon Jul 16 11:51:11 2001
@@ -1,5 +1,10 @@
 2001-07-16  Martin Grabmueller  <address@hidden>
 
+       (scm_char_set_map): Bug-fix: char-set-map was modifying the
+       argument instead of the return value.
+
+2001-07-16  Martin Grabmueller  <address@hidden>
+
        * srfi-14.c: Allocate correct memory size for charsets (32 bytes),
        use this value for initializing and comparing charsets.
        (scm_char_set_hash): Use ``better'' hash algorithm which produces
Index: guile/guile-core/srfi/srfi-14.c
diff -u guile/guile-core/srfi/srfi-14.c:1.14 
guile/guile-core/srfi/srfi-14.c:1.15
--- guile/guile-core/srfi/srfi-14.c:1.14        Mon Jul 16 08:47:02 2001
+++ guile/guile-core/srfi/srfi-14.c     Mon Jul 16 11:51:11 2001
@@ -429,7 +429,7 @@
        SCM ch = scm_call_1 (proc, SCM_MAKE_CHAR (k));
        if (!SCM_CHARP (ch))
          SCM_MISC_ERROR ("procedure ~S returned non-char", scm_list_1 (proc));
-       SCM_CHARSET_SET (cs, SCM_CHAR (ch));
+       SCM_CHARSET_SET (result, SCM_CHAR (ch));
       }
   return result;
 }