diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/strings.c | 11 |
2 files changed, 7 insertions, 9 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 28dcdc262..cdcae34d7 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2001-04-09 Neil Jerram <neil@ossau.uklinux.net> + + * strings.c (scm_read_only_string_p): Update docstring to reflect + current (non-)usage of "read only" strings. + 2001-04-06 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> * hooks.c (scm_make_hook, scm_make_hook_with_name), diff --git a/libguile/strings.c b/libguile/strings.c index 70d831907..476493eef 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -74,15 +74,8 @@ SCM_DEFINE (scm_string_p, "string?", 1, 0, 0, SCM_DEFINE (scm_read_only_string_p, "read-only-string?", 1, 0, 0, (SCM obj), - "Return true if @var{obj} can be read as a string,\n\n" - "This illustrates the difference between @code{string?} and\n" - "@code{read-only-string?}:\n\n" - "@lisp\n" - "(string? \"a string\") @result{} #t\n" - "(string? 'a-symbol) @result{} #f\n\n" - "(read-only-string? \"a string\") @result{} #t\n" - "(read-only-string? 'a-symbol) @result{} #t\n" - "@end lisp") + "Return @code{#t} if @var{obj} is either a string or a symbol,\n" + "otherwise return @code{#f}.") #define FUNC_NAME s_scm_read_only_string_p { return SCM_BOOL(SCM_ROSTRINGP (obj)); |