diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-12-13 19:41:18 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-12-13 19:41:18 +0000 |
| commit | a8aa30d8968bbcb3a9f6f9025305ac9a0f8a09e5 (patch) | |
| tree | da3effe7ee81da906d2bf5380b62547c8dd3ce9e /libguile/strports.h | |
| parent | dbe26481436613a3886a1b45f0cdb996c852758a (diff) | |
| download | guile-a8aa30d8968bbcb3a9f6f9025305ac9a0f8a09e5.tar.gz | |
* * strports.c, strports.h: Make scm_eval_0str return the value of
the last expression evaluated (previously, it returned void).
* * strports.c, strports.h: New function: scm_read_0str. Does what
it sounds like.
Diffstat (limited to 'libguile/strports.h')
| -rw-r--r-- | libguile/strports.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/strports.h b/libguile/strports.h index 4e0598f57..fc0a1ed9f 100644 --- a/libguile/strports.h +++ b/libguile/strports.h @@ -54,7 +54,8 @@ extern SCM scm_mkstrport SCM_P ((SCM pos, SCM str, long modes, char * caller)); extern SCM scm_call_with_output_string SCM_P ((SCM proc)); extern SCM scm_strprint_obj SCM_P ((SCM obj)); extern SCM scm_call_with_input_string SCM_P ((SCM str, SCM proc)); -extern void scm_eval_0str SCM_P ((char *expr)); +extern SCM scm_read_0str SCM_P ((char *expr)); +extern SCM scm_eval_0str SCM_P ((char *expr)); extern void scm_init_strports SCM_P ((void)); #endif /* STRPORTSH */ |