diff options
author | Andy Wingo <wingo@pobox.com> | 2011-12-04 22:37:27 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-12-04 22:37:27 +0100 |
commit | 8500b18696f5943049d769631b2abf309c98b3d2 (patch) | |
tree | e4c4acaf02927d071a725cd2e4460151b00a954d /libguile/private-options.h | |
parent | 2aef6c2ba990c5829004c28cd410ba26a74c0597 (diff) | |
download | guile-8500b18696f5943049d769631b2abf309c98b3d2.tar.gz |
new print option escape-newlines, defaults to #t
* libguile/private-options.h (SCM_PRINT_ESCAPE_NEWLINES_P):
* libguile/print.c: Add new escape-newlines print option, defaulting to
on.
(write_character): For newlines, if SCM_PRINT_ESCAPE_NEWLINES_P, then
print them as \n.
(scm_init_print): Refactor print options initialization.
Diffstat (limited to 'libguile/private-options.h')
-rw-r--r-- | libguile/private-options.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/private-options.h b/libguile/private-options.h index c095688c3..9d2d43cf5 100644 --- a/libguile/private-options.h +++ b/libguile/private-options.h @@ -45,11 +45,14 @@ SCM_INTERNAL scm_t_option scm_debug_opts[]; */ SCM_INTERNAL scm_t_option scm_print_opts[]; +#define SCM_PRINT_HIGHLIGHT_PREFIX_I 0 #define SCM_PRINT_HIGHLIGHT_PREFIX (SCM_PACK (scm_print_opts[0].val)) +#define SCM_PRINT_HIGHLIGHT_SUFFIX_I 1 #define SCM_PRINT_HIGHLIGHT_SUFFIX (SCM_PACK (scm_print_opts[1].val)) #define SCM_PRINT_KEYWORD_STYLE_I 2 #define SCM_PRINT_KEYWORD_STYLE (SCM_PACK (scm_print_opts[2].val)) -#define SCM_N_PRINT_OPTIONS 3 +#define SCM_PRINT_ESCAPE_NEWLINES_P scm_print_opts[3].val +#define SCM_N_PRINT_OPTIONS 4 /* |