mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +02:00
Code Activity

*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.

Browse source
This commit is contained in:
Greg J. Badros 2000-01-05 19:05:23 +00:00
parent fb76446506
commit a1ec69163d
63 changed files with 582 additions and 582 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/strports.c
View file

@ -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.")