summaryrefslogtreecommitdiff
path: root/guile-readline/readline.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-06 11:02:47 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-06 11:02:47 +0000
commit00874d5fb023fd68c03f0df33eccb6554da32ea2 (patch)
tree5e1a1f4c76be830c85dece096518ded28bd86ee4 /guile-readline/readline.c
parent054ebf6ca539dee2bfc9965781313c0d32faa51f (diff)
downloadguile-00874d5fb023fd68c03f0df33eccb6554da32ea2.tar.gz
Replaced all uses of deprecated SCM_FALSEP, SCM_NFALSEP, SCM_BOOL,
SCM_NEGATE_BOOL, and SCM_BOOLP with scm_is_false, scm_is_true, scm_from_bool, and scm_is_bool, respectively.
Diffstat (limited to 'guile-readline/readline.c')
-rw-r--r--guile-readline/readline.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index c47f82438..1c4b3eee3 100644
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -342,7 +342,7 @@ SCM_DEFINE (scm_read_history, "read-history", 1, 0, 0,
#define FUNC_NAME s_scm_read_history
{
SCM_VALIDATE_STRING (1,file);
- return SCM_NEGATE_BOOL (read_history (SCM_STRING_CHARS (file)));
+ return scm_from_bool (!read_history (SCM_STRING_CHARS (file)));
}
#undef FUNC_NAME
@@ -353,7 +353,7 @@ SCM_DEFINE (scm_write_history, "write-history", 1, 0, 0,
#define FUNC_NAME s_scm_write_history
{
SCM_VALIDATE_STRING (1,file);
- return SCM_NEGATE_BOOL (write_history (SCM_STRING_CHARS (file)));
+ return scm_from_bool (!write_history (SCM_STRING_CHARS (file)));
}
#undef FUNC_NAME