term_factorized/3

2014-02-02 21:45:47 +00:00
parent a613099e1f
commit 9d2795b62a
3 changed files with 114 additions and 465 deletions
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -692,6 +692,10 @@ p_univ( USES_REGS1 )
    return (FALSE);
  if (IsApplTerm(tin)) {
    Functor         fun = FunctorOfTerm(tin);
+    if (IsExtensionFunctor ( fun ) ) {
+      twork = MkPairTerm(tin, MkAtomTerm(AtomNil));
+      return (Yap_unify(twork, ARG2));
+    }
    arity = ArityOfFunctor(fun);
    at = NameOfFunctor(fun);
 #ifdef SFUNC