summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
Diffstat (limited to 'libguile')
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/strings.c11
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));