diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-06 11:02:47 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-06 11:02:47 +0000 |
commit | 00874d5fb023fd68c03f0df33eccb6554da32ea2 (patch) | |
tree | 5e1a1f4c76be830c85dece096518ded28bd86ee4 /guile-readline | |
parent | 054ebf6ca539dee2bfc9965781313c0d32faa51f (diff) | |
download | guile-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')
-rw-r--r-- | guile-readline/readline.c | 4 |
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 |