mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 16:30:19 +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_CODEPOINT_MAX (0x10ffff)
#define SCM_IS_UNICODE_CHAR(c) \ #define SCM_IS_UNICODE_CHAR(c) \
((scm_t_wchar)(c)<=0xd7ff || \ ((scm_t_wchar) (c) <= 0xd7ff \
((scm_t_wchar)(c)>=0xe000 && (scm_t_wchar)(c)<=SCM_CODEPOINT_MAX)) || ((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. */ /* Print the character if is graphic character. */
{ {
if (i<256) if (i<256)
{ /* Character is graphic. Print it. */
/* Character is graphic. Print it. */ scm_putc (i, port);
scm_putc (i, port);
}
else else
{ /* Character is graphic but unrepresentable in
/* Character is graphic but unrepresentable in this port's encoding. */
this port's encoding. */ scm_intprint (i, 8, port);
scm_intprint (i, 8, port);
}
} }
else else
{ /* Character is a non-graphical character. */
/* Character is a non-graphical character. */ scm_intprint (i, 8, port);
scm_intprint (i, 8, port);
}
} }
else else
scm_putc (i, port); scm_putc (i, port);