summaryrefslogtreecommitdiff
path: root/libguile/strports.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:05:23 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 19:05:23 +0000
commita1ec69163dd2e55e5d2b03a164513aa4a0d5943c (patch)
tree99489194c03fa41397c77e84b3f8660ffef1ed30 /libguile/strports.c
parentfb764465068f84e3ab047c45792ffc3026e5505a (diff)
downloadguile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/strports.c')
-rw-r--r--libguile/strports.c6
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.")