* Makefile.am (libguile_la_SOURCES): Remove backtrace.c, debug.c,

[bpt/guile.git] / libguile / print.h

diff --git a/libguile/print.h b/libguile/print.h
index 483d313..d16d4f6 100644 (file)
--- a/libguile/print.h
+++ b/libguile/print.h
@@ -67,7 +67,7 @@ extern scm_option scm_print_opts[];
 #define SCM_WRITINGP(pstate) ((pstate)->writingp)
 #define SCM_SET_WRITINGP(pstate, x) { (pstate)->writingp = (x); }
 
-#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwpwuwuwurpW"
+#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwpwuwuwuruopr"
 typedef struct scm_print_state {
   SCM handle;                  /* Struct handle */
   unsigned long writingp;      /* Writing? */
@@ -78,9 +78,9 @@ typedef struct scm_print_state {
   unsigned long list_offset;
   unsigned long top;           /* Top of reference stack */
   unsigned long ceiling;       /* Max size of reference stack */
-  unsigned long n_refs;                /* Size of struct tail array */
-  SCM ref_stack[1];            /* Stack of references used during
+  SCM *ref_stack;              /* Stack of references used during
                                   circular reference detection */
+  SCM ref_vect;
 } scm_print_state;
 
 extern SCM scm_print_options SCM_P ((SCM setting));
@@ -88,7 +88,7 @@ SCM scm_make_print_state SCM_P ((void));
 void scm_free_print_state SCM_P ((SCM print_state));
 extern void scm_intprint SCM_P ((long n, int radix, SCM port));
 extern void scm_ipruk SCM_P ((char *hdr, SCM ptr, SCM port));
-extern void scm_iprlist SCM_P ((char *hdr, SCM exp, char tlr, SCM port, scm_print_state *pstate));
+extern void scm_iprlist SCM_P ((char *hdr, SCM exp, int tlr, SCM port, scm_print_state *pstate));
 extern void scm_prin1 SCM_P ((SCM exp, SCM port, int writingp));
 extern void scm_iprin1 SCM_P ((SCM exp, SCM port, scm_print_state *pstate));
 extern SCM scm_write SCM_P ((SCM obj, SCM port));