Parent Directory | Revision Log | Patch
revision 1.73 by ttn, Thu Mar 14 03:47:43 2002 UTC | revision 1.74 by ossau, Fri Mar 15 10:37:40 2002 UTC | |
---|---|---|
# | Line 58 | Line 58 |
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 @code{#f}.") | "Return @code{#t} if @var{obj} is a string, else @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)); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |