summaryrefslogtreecommitdiff
path: root/libguile/struct.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>1997-06-03 21:49:52 +0000
committerMarius Vollmer <mvo@zagadka.de>1997-06-03 21:49:52 +0000
commitbafcafb27071fad976c9807f24bc801e3dfbfaa2 (patch)
treed871273cd7c91d649d6efff4ce27b68b9cda9760 /libguile/struct.h
parentede1d9bf576a180882ee63c1580e55a241d5660b (diff)
downloadguile-bafcafb27071fad976c9807f24bc801e3dfbfaa2.tar.gz
* struct.c (scm_struct_ref, scm_struct_set_x): Use
scm_struct_i_n_words to get the number of fields, not -scm_struct_n_extra_words. On the route to fancier struct printing: * struct.c (scm_print_struct): New function to print a structure. Include "genio.h" to support it. This function doesn't do anything interesting right now, but I think it should be here anyway. * struct.h: Include "print.h" and add prototype for scm_print_struct. * print.c (scm_iprin1): Call scm_print_struct instead of trying to print structures ourself.
Diffstat (limited to 'libguile/struct.h')
-rw-r--r--libguile/struct.h2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/struct.h b/libguile/struct.h
index 545a41c9f..e0d0f66d9 100644
--- a/libguile/struct.h
+++ b/libguile/struct.h
@@ -45,6 +45,7 @@
#include "libguile/__scm.h"
+#include "libguile/print.h"
@@ -81,6 +82,7 @@ extern SCM scm_struct_ref SCM_P ((SCM handle, SCM pos));
extern SCM scm_struct_set_x SCM_P ((SCM handle, SCM pos, SCM val));
extern SCM scm_struct_vtable SCM_P ((SCM handle));
extern SCM scm_struct_vtable_tag SCM_P ((SCM handle));
+extern void scm_print_struct SCM_P ((SCM exp, SCM port, scm_print_state *));
extern void scm_init_struct SCM_P ((void));
#endif /* STRUCTH */