fix 2 missed DUMMYSELF

Author: HenryHRich

jsrc/v.c

@@ -156,11 +156,11 @@ A jtdropr(J jt,I n,A w){ARGCHK1(w); A a,z; RZ(a=sc(n)); R IRS2(a,w,0, RMAX,1L,jt
 DF1(jticap){A a,e;I n;P*p;
  F1RANK(1,jticap,self);
  SETIC(w,n);
- if((AT(w)&SPARSE+B01)==SPARSE+B01){
+ if(unlikely((AT(w)&SPARSE+B01)==SPARSE+B01)){
   p=PAV(w); a=SPA(p,a); e=SPA(p,e); 
   R BAV(e)[0]||equ(mtv,a) ? repeat(w,IX(n)) : repeat(SPA(p,x),ravel(SPA(p,i)));
  }
- R B01&AT(w) ? ifb(n,BAV(w)) : repeat(w,IX(n));  // scaf could improve
+ R likely((B01&AT(w))!=0) ? ifb(n,BAV(w)) : repeat(w,IX(n));
 }
 
 A jtcharmap(J jt,A w,A x,A y){A z;B bb[256];I k,n,wn;UC c,*u,*v,zz[256];

jsrc/viix.c

@@ -175,7 +175,7 @@ DF2(jticap2){A*av,*wv,z;C*uu,*vv;I ar,*as,at,b,c,ck,cm,ge,gt,j,k,m,n,p,q,r,t,wr,
  wr=AR(w); wt=AT(w); ws=AS(w);
  ASSERT(r<=wr,EVRANK);
  ASSERTAGREE(as+ar-r,ws+wr-r,r)
- ASSERT((POSIFHOMO(at,wt)&-AN(a)&-AN(w))>=0,EVDOMAIN); ASSERT(!ISSPARSE(at|wt),EVNONCE); // if no empties, verify agreement & non-sparse
+ ASSERT((POSIFHOMO(at,wt)&-AN(a)&-AN(w))>=0,EVINHOMO); ASSERT(!ISSPARSE(at|wt),EVNONCE); // if no empties, verify agreement & non-sparse
  CPROD(AN(w),m,wr-r,ws); CPROD(AN(w),c,r,ws+wr-r);  // m=#atoms in result   c=# atoms in a cell of w
  GATV(z,INT,m,wr-r,ws); zv=AV(z);
  if(((m-1)|(n-1)|(c-1))<0){DQ(m, *zv++=0;); R z;}  // exit with zeros for empty args

jsrc/xd.c

@@ -381,8 +381,8 @@ F1(jtjdir){PROLOG(0103);A*v,z,*zv;C*dir,*pat,*s,*x;I j=0,n=32;DIR*DP;struct dire
 
 
 
-F1(jtjfatt1){ASSERT(0,EVNONCE);}
-F2(jtjfatt2){ASSERT(0,EVNONCE);}
+DF1(jtjfatt1){ASSERT(0,EVNONCE);}
+DF2(jtjfatt2){ASSERT(0,EVNONCE);}
 
 
 DF1(jtjfperm1){A y;F f;C b[11];