fix foldwith

jk.c

@@ -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;