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

argument instead of the return value.
This commit is contained in:
Martin Grabmüller 2001-07-16 18:51:11 +00:00
commit 139777e5c7
2 changed files with 6 additions and 1 deletions

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;
}