mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

(scm_char_set_map): Bug-fix: char-set-map was modifying the

Browse source 
argument instead of the return value.
This commit is contained in:
Martin Grabmüller 2001-07-16 18:50:29 +00:00
parent 1ee3ef75d4
commit 5c8c4411a8
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/ChangeLog
View file

@ -1,3 +1,8 @@
2001-07-16 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
(scm_char_set_map): Bug-fix: char-set-map was modifying the
argument instead of the return value.
2001-07-16 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* srfi-14.c: Allocate correct memory size for charsets (32 bytes),

2
srfi/srfi-14.c
View file

@ -429,7 +429,7 @@ SCM_DEFINE (scm_char_set_map, "char-set-map", 2, 0, 0,
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;
}