diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-23 01:20:34 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-23 01:20:34 +0000 |
commit | b7ff98ddd6c01e275066b1f6812c7dd83c1c5c6d (patch) | |
tree | 1411394a6ce582c941d2f16968c4c41516cb01fc /libguile/print.h | |
parent | fe90df5148912648f8ea5b7f1386d119077bc48e (diff) | |
download | guile-b7ff98ddd6c01e275066b1f6812c7dd83c1c5c6d.tar.gz |
* eval.c, print.h, print.c, read.h, read.c: Modifications to
run-time options.
Diffstat (limited to 'libguile/print.h')
-rw-r--r-- | libguile/print.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libguile/print.h b/libguile/print.h index 97138a6ff..5660fc18b 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -49,11 +49,12 @@ extern scm_option scm_print_opts[]; -#define PRINT_PROCNAMES scm_print_opts[0].val -#define N_PRINT_OPTIONS 1 +#define SCM_PRINT_PROCNAMES_P ((int) scm_print_opts[0].val) +#define SCM_PRINT_CLOSURE ((SCM) scm_print_opts[1].val) +#define SCM_N_PRINT_OPTIONS 2 #ifdef __STDC__ -extern SCM scm_print_options (SCM new_values); +extern SCM scm_print_options (SCM setting); extern void scm_intprint (long n, int radix, SCM port); extern void scm_ipruk (char *hdr, SCM ptr, SCM port); extern void scm_iprlist (char *hdr, SCM exp, char tlr, SCM port, int writing); |