summaryrefslogtreecommitdiff
path: root/libguile/print.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-09-23 17:44:40 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-09-23 17:44:40 +0000
commitd232520a23677ac22435e6c3144e8634376cb295 (patch)
tree8343d39a056a738ded77cd52ea11185e8d75623c /libguile/print.h
parentd5ac9b2a8c46dbe1bbe074cd93cb9e6693073bd6 (diff)
downloadguile-d232520a23677ac22435e6c3144e8634376cb295.tar.gz
* print.h (scm_print_state): Added highlight_objects.
* print.c (make_print_state, scm_free_print_state): Initialize it to SCM_EOL. (scm_iprin1): Wrap output in '{...}' when object is contained in highlight_objects.
Diffstat (limited to 'libguile/print.h')
-rw-r--r--libguile/print.h5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/print.h b/libguile/print.h
index 6d9c47c31..740572eb0 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, 2003 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,2000,2001, 2003, 2004 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
@@ -55,7 +55,7 @@ do { \
#define SCM_COERCE_OUTPORT(p) \
(SCM_PORT_WITH_PS_P (p) ? SCM_PORT_WITH_PS_PORT (p) : p)
-#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwuwpwuwuwuruopr"
+#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwuwpwuwuwuruoprpw"
typedef struct scm_print_state {
SCM handle; /* Struct handle */
int revealed; /* Has the state escaped to Scheme? */
@@ -70,6 +70,7 @@ typedef struct scm_print_state {
SCM *ref_stack; /* Stack of references used during
circular reference detection */
SCM ref_vect;
+ SCM highlight_objects; /* List of objects to be highlighted */
} scm_print_state;
SCM_API SCM scm_print_state_vtable;