make between/3 a C-builtin.

2013-04-29 18:22:53 -05:00
parent c04f04d078
commit 64a61e2479
8 changed files with 146 additions and 68 deletions
--- a/C/cmppreds.c
+++ b/C/cmppreds.c
@@ -599,6 +599,13 @@ a_cmp(Term t1, Term t2 USES_REGS)
  }
 }

+Int
+Yap_acmp(Term t1, Term t2 USES_REGS)
+{
+  Int out = a_cmp(t1, t2 PASS_REGS);
+  if (LOCAL_ArithError) { Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); return FALSE; }
+  return out;
+}

 static Int 
 p_acomp( USES_REGS1 )