diff options
| author | Michael Gran <spk121@yahoo.com> | 2009-08-01 11:04:43 -0700 |
|---|---|---|
| committer | Michael Gran <spk121@yahoo.com> | 2009-08-01 11:04:43 -0700 |
| commit | f7118e35525e1c137f2fb96619233610549fae12 (patch) | |
| tree | 4d9f1ad41d4beea9ebf036aa1ce6fa264fd30430 | |
| parent | 4c402b889eecaa7ffc61da6656f415c8c983507a (diff) | |
| download | guile-f7118e35525e1c137f2fb96619233610549fae12.tar.gz | |
Fix coding style compliance for recent 32-bit char changes
* libguile/print.c (iprin1): extra braces
* libguile/chars.h (SCM_IS_UNICODE_CHAR): coding style
| -rw-r--r-- | libguile/chars.h | 4 | ||||
| -rw-r--r-- | libguile/print.c | 20 |
2 files changed, 9 insertions, 15 deletions
diff --git a/libguile/chars.h b/libguile/chars.h index 8e1bc64b4..97fa0cd95 100644 --- a/libguile/chars.h +++ b/libguile/chars.h @@ -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)) diff --git a/libguile/print.c b/libguile/print.c index 1a5aebe1b..f43856bbe 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -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); |