Author: yamakenz
Date: Tue Jul 10 17:26:01 2007
New Revision: 4689
Modified:
sigscheme-trunk/src/char.c
Log:
* src/char.c
- (scm_p_integer2char): Fix NUL rejection on non-Unicode codec
Modified: sigscheme-trunk/src/char.c
==============================================================================
--- sigscheme-trunk/src/char.c (original)
+++ sigscheme-trunk/src/char.c Tue Jul 10 17:26:01 2007
@@ -277,7 +277,8 @@
#if SCM_USE_MULTIBYTE_CHAR
if ((SCM_CHARCODEC_CCS(scm_current_char_codec) == SCM_CCS_UNICODE
&& !ICHAR_VALID_UNICODEP(val))
- || !SCM_CHARCODEC_CHAR_LEN(scm_current_char_codec, val))
+ || (!SCM_CHARCODEC_CHAR_LEN(scm_current_char_codec, val)
+ && val != 0)) /* NUL is a valid char */
#else
if (!ICHAR_SINGLEBYTEP(val)) /* accepts ISO-8859-1 loosely */
#endif
