forked from Lainports/freebsd-ports
32 lines
1 KiB
C
32 lines
1 KiB
C
--- syspred1.c.orig Thu Dec 14 22:30:29 2006
|
|
+++ syspred1.c Thu Dec 14 22:35:14 2006
|
|
@@ -1094,6 +1094,7 @@
|
|
struct clause *root;
|
|
register struct term *tt, *temp;
|
|
int pos = 0, arity;
|
|
+ struct term *tt1;
|
|
|
|
if (is_atomic(t)) return((struct clause *)NIL);
|
|
if ((arity = t->t_arity)==0) return((struct clause *)NIL);
|
|
@@ -1105,8 +1106,9 @@
|
|
head_of_list(tt) = Arg(t,pos);
|
|
pos++;
|
|
if (pos >= arity) break;
|
|
- tail_of_list(tt) = temp =
|
|
- (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL);
|
|
+ tt1 = tail_of_list(tt);
|
|
+ temp = (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL);
|
|
+ tt1 = (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL);
|
|
tt = temp;
|
|
}
|
|
return(root);
|
|
@@ -1227,8 +1229,7 @@
|
|
head_of_list(t) = Nstr(s, TEMPORAL);
|
|
}
|
|
if (nbuf[pos] == '\0') return(root);
|
|
- t = (tail_of_list(t) =
|
|
- (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL));
|
|
+ t = (struct term *)Nlist(NIL,(struct clause *)NIL,TEMPORAL);
|
|
}
|
|
}
|
|
|