mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix coding style compliance for recent 32-bit char changes

Browse source 
* libguile/print.c (iprin1): extra braces

        * libguile/chars.h (SCM_IS_UNICODE_CHAR): coding style
This commit is contained in:
Michael Gran 2009-08-01 11:04:43 -07:00
parent 4c402b889e
commit f7118e3552
2 changed files with 9 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/chars.h
View file

@ -44,8 +44,8 @@ typedef scm_t_int32 scm_t_wchar;
#define SCM_CODEPOINT_MAX (0x10ffff)
#define SCM_IS_UNICODE_CHAR(c) \
((scm_t_wchar)(c)<=0xd7ff || \
((scm_t_wchar)(c)>=0xe000 && (scm_t_wchar)(c)<=SCM_CODEPOINT_MAX))
((scm_t_wchar) (c) <= 0xd7ff \
|| ((scm_t_wchar) (c) >= 0xe000 && (scm_t_wchar) (c) <= SCM_CODEPOINT_MAX))

20
libguile/print.c
View file

@ -454,22 +454,16 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
/* Print the character if is graphic character. */
{
if (i<256)
{
/* Character is graphic. Print it. */
scm_putc (i, port);
}
/* Character is graphic. Print it. */
scm_putc (i, port);
else
{
/* Character is graphic but unrepresentable in
this port's encoding. */
scm_intprint (i, 8, port);
}
/* Character is graphic but unrepresentable in
this port's encoding. */
scm_intprint (i, 8, port);
}
else
{
/* Character is a non-graphical character. */
scm_intprint (i, 8, port);
}
/* Character is a non-graphical character. */
scm_intprint (i, 8, port);
}
else
scm_putc (i, port);