58 |
|
|
59 |
SCM_DEFINE (scm_string_p, "string?", 1, 0, 0, |
SCM_DEFINE (scm_string_p, "string?", 1, 0, 0, |
60 |
(SCM obj), |
(SCM obj), |
61 |
"Return @code{#t} iff @var{obj} is a string, else returns\n" |
"Return @code{#t} if @var{obj} is a string, else @code{#f}.") |
|
"@code{#f}.") |
|
62 |
#define FUNC_NAME s_scm_string_p |
#define FUNC_NAME s_scm_string_p |
63 |
{ |
{ |
64 |
return SCM_BOOL (SCM_STRINGP (obj)); |
return SCM_BOOL (SCM_STRINGP (obj)); |
87 |
|
|
88 |
SCM_DEFINE (scm_string, "string", 0, 0, 1, |
SCM_DEFINE (scm_string, "string", 0, 0, 1, |
89 |
(SCM chrs), |
(SCM chrs), |
90 |
"@deffnx primitive list->string chrs\n" |
"@deffnx {Scheme Procedure} list->string chrs\n" |
91 |
"Return a newly allocated string composed of the arguments,\n" |
"Return a newly allocated string composed of the arguments,\n" |
92 |
"@var{chrs}.") |
"@var{chrs}.") |
93 |
#define FUNC_NAME s_scm_string |
#define FUNC_NAME s_scm_string |