[PPL-devel] [GIT] ppl/ppl(master): Some corrections.
Roberto Bagnara
bagnara at cs.unipr.it
Wed Dec 11 08:07:31 CET 2013
Module: ppl/ppl
Branch: master
Commit: 3fff0a6c16b7a6c541e34ae4ff0de56bba9f3d32
URL: http://www.cs.unipr.it/git/gitweb.cgi?p=ppl/ppl.git;a=commit;h=3fff0a6c16b7a6c541e34ae4ff0de56bba9f3d32
Author: Roberto Bagnara <bagnara at cs.unipr.it>
Date: Wed Dec 11 08:07:04 2013 +0100
Some corrections.
---
interfaces/Prolog/SWI/swi_cfli.hh | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/interfaces/Prolog/SWI/swi_cfli.hh b/interfaces/Prolog/SWI/swi_cfli.hh
index 2203a41..c6b3951 100644
--- a/interfaces/Prolog/SWI/swi_cfli.hh
+++ b/interfaces/Prolog/SWI/swi_cfli.hh
@@ -150,7 +150,7 @@ Prolog_put_atom(Prolog_term_ref t, Prolog_atom a) {
*/
inline int
Prolog_put_nil(Prolog_term_ref t) {
- PL_put_nil(to_term_t(t));
+ PL_put_nil(t);
return 1;
}
@@ -304,7 +304,7 @@ Prolog_is_compound(Prolog_term_ref t) {
*/
inline int
Prolog_is_cons(Prolog_term_ref t) {
- return (!PL_is_atom(t) && PL_is_list(t)) ? 1 : 0;
+ return PL_is_pair(t);
}
/*!
@@ -369,7 +369,7 @@ Prolog_get_arg(int i, Prolog_term_ref t, Prolog_term_ref a) {
*/
inline int
Prolog_get_nil(Prolog_term_ref t) {
- return PL_get_nil(to_term_t(t));
+ return PL_get_nil(t);
}
/*!
More information about the PPL-devel
mailing list