diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
commit | a1ec69163dd2e55e5d2b03a164513aa4a0d5943c (patch) | |
tree | 99489194c03fa41397c77e84b3f8660ffef1ed30 /libguile/strports.c | |
parent | fb764465068f84e3ab047c45792ffc3026e5505a (diff) | |
download | guile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz |
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/strports.c')
-rw-r--r-- | libguile/strports.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/strports.c b/libguile/strports.c index ea19523e1..2b98696f3 100644 --- a/libguile/strports.c +++ b/libguile/strports.c @@ -295,7 +295,7 @@ SCM scm_strport_to_string (SCM port) return scm_makfromstr (pt->read_buf, pt->read_buf_size, 0); } -GUILE_PROC(scm_call_with_output_string, "call-with-output-string", 1, 0, 0, +SCM_DEFINE(scm_call_with_output_string, "call-with-output-string", 1, 0, 0, (SCM proc), "Calls the one-argument procedure @var{proc} with a newly created output port. When the function returns, the string composed of the characters @@ -337,7 +337,7 @@ scm_strprint_obj (SCM obj) -GUILE_PROC(scm_call_with_input_string, "call-with-input-string", 2, 0, 0, +SCM_DEFINE(scm_call_with_input_string, "call-with-input-string", 2, 0, 0, (SCM str, SCM proc), "Calls the one-argument procedure @var{proc} with a newly created input port from which @var{string}'s contents may be read. The value yielded @@ -378,7 +378,7 @@ scm_eval_0str (const char *expr) } -GUILE_PROC (scm_eval_string, "eval-string", 1, 0, 0, +SCM_DEFINE (scm_eval_string, "eval-string", 1, 0, 0, (SCM string), "Evaluate @var{string} as the text representation of a Scheme form or forms, and return whatever value they produce.") |