diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 14:42:31 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 14:42:31 +0000 |
commit | 8c494e99736a68a24d3004652c6f4aceb16d7ecf (patch) | |
tree | de3e7d8e8f642aff57070fd12347af4d89c2a600 /guile-readline | |
parent | dee01b012cd5179b70a2e361ee08c364ed9f3314 (diff) | |
download | guile-8c494e99736a68a24d3004652c6f4aceb16d7ecf.tar.gz |
* Removed lots of deprecated stuff.
Diffstat (limited to 'guile-readline')
-rw-r--r-- | guile-readline/ChangeLog | 7 | ||||
-rw-r--r-- | guile-readline/readline.c | 4 |
2 files changed, 7 insertions, 4 deletions
diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog index e5f9b5eea..8da222be4 100644 --- a/guile-readline/ChangeLog +++ b/guile-readline/ChangeLog @@ -1,5 +1,12 @@ 2001-08-31 Dirk Herrmann <D.Herrmann@tu-bs.de> + * readline.c (scm_readline, scm_add_history, + scm_filename_completion_function, completion_function): Remove + calls to SCM_STRING_COERCE_0TERMINATION_X. Since the substring + type is gone, all strings are 0-terminated anyway. + +2001-08-31 Dirk Herrmann <D.Herrmann@tu-bs.de> + * readline.scm: `feature?´ is deprecated. Use `provided?´ instead. diff --git a/guile-readline/readline.c b/guile-readline/readline.c index c9245caff..72d46c91c 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -171,7 +171,6 @@ SCM_DEFINE (scm_readline, "%readline", 0, 4, 0, --in_readline; scm_wrong_type_arg (s_scm_readline, SCM_ARG1, text); } - SCM_STRING_COERCE_0TERMINATION_X (text); } if (!((SCM_UNBNDP (inp) && SCM_OPINFPORTP (scm_cur_inp)) @@ -327,7 +326,6 @@ SCM_DEFINE (scm_add_history, "add-history", 1, 0, 0, { char* s; SCM_VALIDATE_STRING (1,text); - SCM_STRING_COERCE_0TERMINATION_X (text); s = SCM_STRING_CHARS (text); add_history (strdup (s)); @@ -377,7 +375,6 @@ SCM_DEFINE (scm_filename_completion_function, "filename-completion-function", 2, char *s; SCM ans; SCM_VALIDATE_STRING (1,text); - SCM_STRING_COERCE_0TERMINATION_X (text); #ifdef HAVE_RL_FILENAME_COMPLETION_FUNCTION s = rl_filename_completion_function (SCM_STRING_CHARS (text), SCM_NFALSEP (continuep)); #else @@ -417,7 +414,6 @@ completion_function (char *text, int continuep) scm_misc_error (s_scm_readline, "Completion function returned bogus value: %S", scm_list_1 (res)); - SCM_STRING_COERCE_0TERMINATION_X (res); return strdup (SCM_STRING_CHARS (res)); } } |