moe changes to support atomic generation of atoms
support automatic generation of code walker (to find P's predicate and clause)
This commit is contained in:
2
C/sort.c
2
C/sort.c
@@ -405,7 +405,7 @@ p_ksort(void)
|
||||
/* reserve the necessary space */
|
||||
pt = H; /* because of possible garbage collection */
|
||||
H += size*2;
|
||||
if (!key_mergesort(pt, size, M_EVEN, Yap_MkFunctor(AtomMinus,2)))
|
||||
if (!key_mergesort(pt, size, M_EVEN, FunctorMinus))
|
||||
return(FALSE);
|
||||
adjust_vector(pt, size);
|
||||
out = AbsPair(pt);
|
||||
|
Reference in New Issue
Block a user