|
|
@@ -1995,7 +1995,8 @@ Vt*_advfold_m(St*st,vt*self,Vt*x){if(xt!=ARRAY||!xad)R x;
|
|
|
Vt*t=xad[0];
|
|
|
Ar*tx=xa;
|
|
|
for(Z i=1;i<tx->length;i++)t=tgth(st,v,t,tx->data[i],0,0,v->rank[1],v->rank[2]);R t;}
|
|
|
-Vt*_advfold_d(St*st,vt*self,Vt*x,Vt*y){if(yt!=ARRAY||!yad)R y;
|
|
|
+Vt*_advfold_d(St*st,vt*self,Vt*x,Vt*y){if(yt!=ARRAY)y=venlist(st,N,y);
|
|
|
+ elif(!yad)R x;
|
|
|
Vt*_v=self->bonds->data[0];
|
|
|
if(_v->tag!=VERB)R st->udf;
|
|
|
vt*v=_v->val.verb;
|
