diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2005-09-04 21:30:01 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2005-09-04 21:30:01 +0000 |
| commit | 475fa9a5d7913d300453a94fb1010d1cae711f4f (patch) | |
| tree | d1f2b1672056d5a258add7ef14021ac904bca363 /libguile/print.h | |
| parent | 25bdfbb6cfe2ff5c5168b912c9d730ea6cb16f33 (diff) | |
| download | guile-475fa9a5d7913d300453a94fb1010d1cae711f4f.tar.gz | |
(SCM_PRINT_KEYWORD_STYLE_I, SCM_PRINT_KEYWORD_STYLE):
New.
(sym_reader): New.
(scm_print_opts): Added "quote-keywordish-symbols" option.
(quote_keywordish_symbol): New, for evaluating the option.
(scm_print_symbol_name): Use it.
(scm_init_print): Initialize new option to sym_reader.
Diffstat (limited to 'libguile/print.h')
| -rw-r--r-- | libguile/print.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/print.h b/libguile/print.h index fd7f9d926..9f7836554 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -32,7 +32,9 @@ SCM_API scm_t_option scm_print_opts[]; #define SCM_PRINT_SOURCE_P ((int) scm_print_opts[1].val) #define SCM_PRINT_HIGHLIGHT_PREFIX (SCM_PACK (scm_print_opts[2].val)) #define SCM_PRINT_HIGHLIGHT_SUFFIX (SCM_PACK (scm_print_opts[3].val)) -#define SCM_N_PRINT_OPTIONS 4 +#define SCM_PRINT_KEYWORD_STYLE_I 4 +#define SCM_PRINT_KEYWORD_STYLE (SCM_PACK (scm_print_opts[4].val)) +#define SCM_N_PRINT_OPTIONS 5 /* State information passed around during printing. */ |