mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* * print.c: New procedure: scm_print_options

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-08-20 17:11:03 +00:00
parent 4625e44f7e
commit e6e4c9af39
1 changed files with 26 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
libguile/print.c
View file

@ -88,6 +88,29 @@ char *scm_isymnames[] =
"#<unspecified>"
};
#ifdef DEBUG_EXTENSIONS
scm_option scm_print_opts[] = {
{ SCM_OPTION_BOOLEAN, "procnames", 0 },
};
SCM_PROC (s_print_options, "print-options", 0, 1, 0, scm_print_options);
#ifdef __STDC__
SCM
scm_print_options (SCM new_values)
#else
SCM
scm_print_options (new_values)
SCM new_values;
#endif
{
SCM ans = scm_change_options (new_values,
scm_print_opts,
N_PRINT_OPTIONS,
s_print_options);
return ans;
}
#endif
/* {Printing of Scheme Objects}
*/
@ -565,6 +588,9 @@ void
scm_init_print ()
#endif
{
#ifdef DEBUG_EXTENSIONS
scm_init_opts (scm_print_options, scm_print_opts, N_PRINT_OPTIONS);
#endif
#include "print.x"
}