diff options
author | Marius Vollmer <mvo@zagadka.de> | 1997-06-03 21:49:52 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 1997-06-03 21:49:52 +0000 |
commit | bafcafb27071fad976c9807f24bc801e3dfbfaa2 (patch) | |
tree | d871273cd7c91d649d6efff4ce27b68b9cda9760 /libguile/struct.h | |
parent | ede1d9bf576a180882ee63c1580e55a241d5660b (diff) | |
download | guile-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.h | 2 |
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 */ |