|
|
@@ -60,6 +60,7 @@ typedef const char *cS;
|
|
|
h *= 0xc2b2ae35; \
|
|
|
h ^= h >> 16;
|
|
|
#define TABLE_MIN_SIZE 32
|
|
|
+#define CV(s) (Srun(st,s)->val.verb)
|
|
|
jmp_buf Icp;
|
|
|
B Iin;
|
|
|
P ma(Z size){P p;
|
|
|
@@ -1010,7 +1011,6 @@ Vt*vpermute(St*st,vt*self,Vt*x){if(xt!=ARRAY||le(xa)||!xa->next)R x;
|
|
|
lp(result,lc(permutation));
|
|
|
Lst*c=ln();
|
|
|
for(Z i=0;i<length;i++){Z*n=maa(SO(Z));
|
|
|
-
|
|
|
lp(c,n);}
|
|
|
Z k;
|
|
|
Lst*p;
|
|
|
@@ -2627,11 +2627,11 @@ I main(I argc,S*argv){GC_INIT();
|
|
|
Tset(Inverses,"^",Gv("^."));
|
|
|
Tset(Inverses,"+;.",Gv("%:"));
|
|
|
Tset(Inverses,"*/",Gv("["));
|
|
|
- Tset(Inverses,"[",Srun(st,"*/")->val.verb);
|
|
|
- Tset(Inverses,"!",Srun(st,">|/")->val.verb);
|
|
|
- Tset(Inverses,"!.",Srun(st,"|/")->val.verb);
|
|
|
- Tset(Inverses,"]@>:",Srun(st,"]@<:")->val.verb);
|
|
|
- Tset(Inverses,"]@<:",Srun(st,"]@>:")->val.verb);
|
|
|
+ Tset(Inverses,"[",CV("*/"));
|
|
|
+ Tset(Inverses,"!",CV(">|/"));
|
|
|
+ Tset(Inverses,"!.",CV("|/"));
|
|
|
+ Tset(Inverses,"]@>:",CV("]@<:"));
|
|
|
+ Tset(Inverses,"]@<:",CV("]@>:"));
|
|
|
Lst*args=ln();
|
|
|
for(I i=1;i<argc;i++){Lst*arg=ln();
|
|
|
S s=argv[i];
|
