diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-05-12 20:46:52 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-05-12 20:46:52 +0000 |
| commit | dfd03fb91b66599064c51c2924ead945b00852c5 (patch) | |
| tree | f62ff3e0e588f50477cd44d38f800a523f848c94 /libguile/print.h | |
| parent | 7aaf8dc9f768bce59b295fc09df50ed5cd7efdf1 (diff) | |
| download | guile-dfd03fb91b66599064c51c2924ead945b00852c5.tar.gz | |
* backtrace.c (scm_display_error_message): Introduced fancy
printing with max level 7 and length 10. (Purpose: avoid printing
gigantic objects in error messages.)
* print.c, print.h (scm_i_port_with_print_state): New function.
* print.c (scm_iprin1, scm_printer_apply,
scm_port_with_print_state): Use scm_i_port_with_print_state.
(scm_simple_format): Modified not to destroy print states.
(print_state_mutex): New mutex.
(scm_make_print_state, scm_free_print_state, scm_prin1):
Lock/unlock print_state_mutex.
Diffstat (limited to 'libguile/print.h')
| -rw-r--r-- | libguile/print.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/print.h b/libguile/print.h index 325c65c65..b4e8292c4 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -3,7 +3,7 @@ #ifndef SCM_PRINT_H #define SCM_PRINT_H -/* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1998,2000,2001, 2003 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -79,6 +79,7 @@ SCM_API scm_t_bits scm_tc16_port_with_ps; SCM_API SCM scm_print_options (SCM setting); SCM_API SCM scm_make_print_state (void); SCM_API void scm_free_print_state (SCM print_state); +SCM scm_i_port_with_print_state (SCM port, SCM print_state); SCM_API void scm_intprint (long n, int radix, SCM port); SCM_API void scm_ipruk (char *hdr, SCM ptr, SCM port); SCM_API void scm_iprlist (char *hdr, SCM exp, int tlr, SCM port, scm_print_state *pstate); |