more bug fixes:

- make readline use packages, not old YAP code - fix ! over backtrack cps - fix write list
2011-02-15 05:54:19 -08:00
parent 140318ff16
commit 57f5ef8cfc
18 changed files with 341 additions and 403 deletions
--- a/H/amiops.h
+++ b/H/amiops.h
@@ -548,7 +548,7 @@ Yap_unify_constant(register Term a, register Term cons)
 static inline int
 do_cut(int i) {
 #ifdef CUT_C
-  while (POP_CHOICE_POINT(B->cp_b)) {
+  if (POP_CHOICE_POINT(B->cp_b)) {
    cut_c_pop();
  }
 #endif