summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1997-08-13 14:55:34 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1997-08-13 14:55:34 +0000
commit4ed948d4f18b3ef34b3f0089ed2631889bd0ebe0 (patch)
tree0d1d0d83e412a11e87de10e9049c939ea8a4ca6c
parent9538471795cf02ec8de3a6e861e626761d852909 (diff)
downloadguile-4ed948d4f18b3ef34b3f0089ed2631889bd0ebe0.tar.gz
* * gh_io.c (gh_write): New function.
-rw-r--r--libguile/ChangeLog11
-rw-r--r--libguile/gh_io.c6
2 files changed, 17 insertions, 0 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 29d42686d..ae773cdbf 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,14 @@
+Wed Aug 13 15:38:44 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
+
+* * gh_io.c (gh_write): New function.
+
+* * gh_eval.c (catch_with_saved_stack): Removed. Replaced by:
+ throw.c (scm_internal_stack_catch): New sibling to the other catch
+ functions. Code moved from gh_eval.c.
+ throw.h: Added header.
+ gh_eval.c (gh_eval_str_with_stack_saving_handler): Renamed call to
+ scm_internal_stack_catch.
+
Tue Jul 29 01:03:08 1997 Gary Houston <ghouston@actrix.gen.nz>
* ioext.h: fix up prototypes.
diff --git a/libguile/gh_io.c b/libguile/gh_io.c
index 567294991..9e19f4d47 100644
--- a/libguile/gh_io.c
+++ b/libguile/gh_io.c
@@ -51,6 +51,12 @@ gh_display (SCM x)
}
void
+gh_write (SCM x)
+{
+ scm_write (x, scm_current_output_port ());
+}
+
+void
gh_newline ()
{
scm_newline (scm_current_output_port ());