Skip to content

Commit 0db982e

Browse files
juntuujuntuu
committed
Continue converting calls & removing macros
1 parent 5d094bb commit 0db982e

File tree

29 files changed

+73
-95
lines changed

29 files changed

+73
-95
lines changed

‎jsrc/adverbs/a.c

+6-6
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ jtswap(J jt, A w) {
4040
I flag = FAV(w)->flag & (VIRS2 | VJTFLGOK2);
4141
flag = (FAV(w)->flag & VASGSAFE) + flag +
4242
(flag >> 1); // set ASGSAFE, both inplace/irs bits from dyad; ISATOMIC immaterial, since always dyad
43-
return fdef(0, CTILDE, VERB, (AF)(swap1), (AF)(swap2), w, 0L, 0L, flag, (I)(RMAX), (I)(rr(w)), (I)(lr(w)));
43+
return jtfdef(jt, 0, CTILDE, VERB, (AF)(swap1), (AF)(swap2), w, 0L, 0L, flag, (I)(RMAX), (I)(rr(w)), (I)(lr(w)));
4444
} else {
4545
// evoke. Ii must be LIT and convertible to ASCII.
4646
if ((C2T + C4T) & AT(w)) RZ(w = jtcvt(jt, LIT, w)) else ASSERT(LIT & AT(w), EVDOMAIN);
@@ -116,15 +116,15 @@ jtbdot(J jt, A w) {
116116
memcpy(AV(b), booltab, 64L);
117117
RZ(h = jtrifvs(jt, jtcant2(jt, IX(AR(w)), jtfrom(jt, w, b)))); // h is an array representing b. One cell for
118118
// each atom of b; cell is 4 values
119-
return fdef(0, CBDOT, VERB, jtbdot1, jtbdot2, 0L, w, h, VFLAGNONE, RMAX, 0L, 0L);
119+
return jtfdef(jt, 0, CBDOT, VERB, jtbdot1, jtbdot2, 0L, w, h, VFLAGNONE, RMAX, 0L, 0L);
120120
} else
121121
switch (j) {
122122
case 32:
123-
return fdef(0, CBDOT, VERB, jtbitwise1, jtbitwiserotate, 0L, w, 0L, VASGSAFE | VJTFLGOK2, 0L, 0L, 0L);
123+
return jtfdef(jt, 0, CBDOT, VERB, jtbitwise1, jtbitwiserotate, 0L, w, 0L, VASGSAFE | VJTFLGOK2, 0L, 0L, 0L);
124124
case 33:
125-
return fdef(0, CBDOT, VERB, jtbitwise1, jtbitwiseshift, 0L, w, 0L, VASGSAFE | VJTFLGOK2, 0L, 0L, 0L);
125+
return jtfdef(jt, 0, CBDOT, VERB, jtbitwise1, jtbitwiseshift, 0L, w, 0L, VASGSAFE | VJTFLGOK2, 0L, 0L, 0L);
126126
case 34:
127-
return fdef(0, CBDOT, VERB, jtbitwise1, jtbitwiseshifta, 0L, w, 0L, VASGSAFE | VJTFLGOK2, 0L, 0L, 0L);
127+
return jtfdef(jt, 0, CBDOT, VERB, jtbitwise1, jtbitwiseshifta, 0L, w, 0L, VASGSAFE | VJTFLGOK2, 0L, 0L, 0L);
128128
// The code uses a VERB with id CBDOT to stand for the derived verb of m b. . This is used for spellout and
129129
// for inverses, so we retain it. We copy the other information from the verb that executes the function.
130130
// This contains pointers to the routines, and to the function table
@@ -300,7 +300,7 @@ jtmemo(J jt, A w) {
300300
RZ(hv[1] = jtmkwris(jt, q));
301301
GATV0(q, BOX, m, 1);
302302
hv[2] = q;
303-
EPILOG(fdef(0, CMCAP, VERB, jtmemo1, jtmemo2, w, 0L, h, 0L, v->mr, lrv(v), rrv(v)));
303+
EPILOG(jtfdef(jt, 0, CMCAP, VERB, jtmemo1, jtmemo2, w, 0L, h, 0L, v->mr, lrv(v), rrv(v)));
304304
// Now we have converted the verb result to recursive usecount, and gotten rid of the pending tpops for the
305305
// components of h
306306
}

‎jsrc/adverbs/a.h

+2-2
Original file line numberDiff line numberDiff line change
@@ -98,9 +98,9 @@
9898
}
9999

100100
#define ADERIV(id, f1, f2, flag, m, l, r) \
101-
fdef(0, id, VERB, (AF)(f1), (AF)(f2), w, 0L, 0L, (flag), (I)(m), (I)(l), (I)(r))
101+
jtfdef(jt, 0, id, VERB, (AF)(f1), (AF)(f2), w, 0L, 0L, (flag), (I)(m), (I)(l), (I)(r))
102102
#define CDERIV(id, f1, f2, flag, m, l, r) \
103-
fdef(0, id, VERB, (AF)(f1), (AF)(f2), a, w, 0L, (flag), (I)(m), (I)(l), (I)(r))
103+
jtfdef(jt, 0, id, VERB, (AF)(f1), (AF)(f2), a, w, 0L, (flag), (I)(m), (I)(l), (I)(r))
104104

105105
#define ASSERTVV(a, w) ASSERT(VERB& AT(a) & AT(w), EVDOMAIN)
106106
#define ASSERTVVn(a, w) ASSERT(VERB& AT(a), EVDOMAIN)

‎jsrc/adverbs/ai.c

+5-5
Original file line numberDiff line numberDiff line change
@@ -262,11 +262,11 @@ jtinvamp(J jt, A w) {
262262
case CFIT:
263263
ASSERT(nf && (CPOUND == ID(FAV(g)->fgh[0])), EVDOMAIN);
264264
ASSERT(1 == AR(x), EVRANK);
265-
return fdef(0, CPOWOP, VERB, jtexpandg, 0L, w, num(-1), 0L, VFLAGNONE, RMAX, 0L, 0L);
265+
return jtfdef(jt, 0, CPOWOP, VERB, jtexpandg, 0L, w, num(-1), 0L, VFLAGNONE, RMAX, 0L, 0L);
266266
case CPOUND:
267267
ASSERT(nf != 0, EVDOMAIN);
268268
ASSERT(1 == AR(x), EVRANK);
269-
return fdef(0, CPOWOP, VERB, jtexpandf, 0L, w, num(-1), 0L, VFLAGNONE, RMAX, 0L, 0L);
269+
return jtfdef(jt, 0, CPOWOP, VERB, jtexpandf, 0L, w, num(-1), 0L, VFLAGNONE, RMAX, 0L, 0L);
270270
break;
271271
case CPOWOP:
272272
if (VGERL & u->flag) {
@@ -409,8 +409,8 @@ jtinv(J jt, A w, I recur) {
409409
case CBANG:
410410
return jteval(jt, "3 : '(-(y -~ !)%0.001&* (0.001%~[:-/[:! 0.001 0 +/ ]) ])^:_<.&170^:(-:+)^.y' :. !");
411411
case CXCO: return jtamp(jt, num(-1), w);
412-
case CSPARSE: return fdef(0, CPOWOP, VERB, jtdenseit, 0L, w, num(-1), 0L, VFLAGNONE, RMAX, RMAX, RMAX);
413-
case CPCO: return fdef(0, CPOWOP, VERB, jtplt, 0L, w, num(-1), 0L, 0L, 0L, 0L, 0L);
412+
case CSPARSE: return jtfdef(jt, 0, CPOWOP, VERB, jtdenseit, 0L, w, num(-1), 0L, VFLAGNONE, RMAX, RMAX, RMAX);
413+
case CPCO: return jtfdef(jt, 0, CPOWOP, VERB, jtplt, 0L, w, num(-1), 0L, 0L, 0L, 0L, 0L);
414414
case CQCO: return jteval(jt, "*/");
415415
case CUCO: return jtamp(jt, num(3), w);
416416
case CUNDER: return jtunder(jt, invrecur(f), g);
@@ -472,7 +472,7 @@ jtinv(J jt, A w, I recur) {
472472
break;
473473
case CCUT:
474474
if (CBOX == ID(f) && ng && (p = jti0(jt, g), 1 == p || 2 == p))
475-
return fdef(0, CPOWOP, VERB, jtbminv, 0L, w, num(-1), 0L, VFLAGNONE, RMAX, RMAX, RMAX);
475+
return jtfdef(jt, 0, CPOWOP, VERB, jtbminv, 0L, w, num(-1), 0L, VFLAGNONE, RMAX, RMAX, RMAX);
476476
break;
477477
case CIBEAM:
478478
p = jti0(jt, f);

‎jsrc/adverbs/ao.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -1452,5 +1452,5 @@ jtsldot(J jt, A w) {
14521452
// otherwise (including keymean) fall through to...
14531453
default: f2 = jtkey; flag |= (FAV(w)->flag & VASGSAFE); // pass through ASGSAFE.
14541454
}
1455-
return fdef(0, CSLDOT, VERB, f1, f2, w, 0L, h, flag, RMAX, RMAX, RMAX);
1455+
return jtfdef(jt, 0, CSLDOT, VERB, f1, f2, w, 0L, h, flag, RMAX, RMAX, RMAX);
14561456
}

‎jsrc/adverbs/ap.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -1449,7 +1449,7 @@ jtbslash(J jt, A w) {
14491449
;
14501450
if (!w) return 0;
14511451
if (NOUN & AT(w))
1452-
return fdef(
1452+
return jtfdef(jt,
14531453
0, CBSLASH, VERB, jtinfixprefix1, jtinfixprefix2, w, 0L, jtfxeachv(jt, 1L, w), VGERL | flag, RMAX, 0L, RMAX);
14541454
v = FAV(w); // v is the u in u\ y
14551455
switch (v->id) {

‎jsrc/adverbs/ar.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -1091,7 +1091,7 @@ jtslash(J jt, A w) {
10911091
break; // monad is inplaceable if the dyad for u is
10921092
}
10931093
RZ(h = jtqq(jt, w, jtv2(jt, lr(w), RMAX))); // create the rank compound to use if dyad
1094-
RZ(h = fdef(0, CSLASH, VERB, f1, jtoprod, w, 0L, h, flag | FAV(ds(CSLASH))->flag, RMAX, RMAX, RMAX));
1094+
RZ(h = jtfdef(jt, 0, CSLASH, VERB, f1, jtoprod, w, 0L, h, flag | FAV(ds(CSLASH))->flag, RMAX, RMAX, RMAX));
10951095
// set lvp[1] to point to the VARPSA block for w if w is atomic dyad; otherwise to the null VARPSA block
10961096
FAV(h)->localuse.lvp[1] = v->flag & VISATOMIC2 ? ((VA*)v->localuse.lvp[0])->rps : &rpsnull;
10971097
return h;

‎jsrc/adverbs/as.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -595,7 +595,7 @@ jtbsdot(J jt, A w) {
595595
C id;
596596
V* v; // init flag is IRS1
597597
if (NOUN & AT(w))
598-
return fdef(0,
598+
return jtfdef(jt, 0,
599599
CBSLASH,
600600
VERB,
601601
jtgsuffix,

‎jsrc/adverbs/au.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@ jtself2(J jt, A a, A w) {
4747

4848
A
4949
jtac2(J jt, AF f) {
50-
return fdef(0, 0, VERB, 0L, f, 0L, 0L, 0L, VFLAGNONE, RMAX, RMAX, RMAX);
50+
return jtfdef(jt, 0, 0, VERB, 0L, f, 0L, 0L, 0L, VFLAGNONE, RMAX, RMAX, RMAX);
5151
}
5252

5353
A

‎jsrc/conjunctions/ca.c

+9-9
Original file line numberDiff line numberDiff line change
@@ -271,14 +271,14 @@ jtatop(J jt, A a, A w) {
271271
AT(w) |= LIT;
272272
}
273273
}
274-
return fdef(0, CAT, VERB, onconst1, onconst2, a, w, h, VFLAGNONE, RMAX, RMAX, RMAX);
274+
return jtfdef(jt, 0, CAT, VERB, onconst1, onconst2, a, w, h, VFLAGNONE, RMAX, RMAX, RMAX);
275275
}
276276
wv = FAV(w);
277277
d = wv->id;
278278
if ((d & ~1) == CLEFT) {
279279
// the very common case u@] and u@[. Take ASGSAFE and inplaceability from u. No IRS. Vector the monad
280280
// straight to u; vector the dyad to our routine that shuffles args and inplace bits
281-
return fdef(0,
281+
return jtfdef(jt, 0,
282282
CAT,
283283
VERB,
284284
onright1,
@@ -471,7 +471,7 @@ jtatop(J jt, A a, A w) {
471471
}
472472
}
473473

474-
return fdef(flag2, CAT, VERB, f1, f2, a, w, h, flag, (I)wv->mr, (I)lrv(wv), rrv(wv));
474+
return jtfdef(jt, flag2, CAT, VERB, f1, f2, a, w, h, flag, (I)wv->mr, (I)lrv(wv), rrv(wv));
475475
}
476476

477477
// u@:v
@@ -493,7 +493,7 @@ jtatco(J jt, A a, A w) {
493493
if ((d & ~1) == CLEFT) {
494494
// the very common case u@:] and u@:[. Take ASGSAFE and inplaceability from u. No IRS. Vector the monad
495495
// straight to u; vector the dyad to our routine that shuffles args and inplace bits
496-
return fdef(0,
496+
return jtfdef(jt, 0,
497497
CATCO,
498498
VERB,
499499
onright1,
@@ -638,7 +638,7 @@ jtatco(J jt, A a, A w) {
638638
flag2 |= wv->flag2 & (VF2WILLOPEN1 | VF2WILLOPEN2W | VF2WILLOPEN2A | VF2USESITEMCOUNT1 | VF2USESITEMCOUNT2W |
639639
VF2USESITEMCOUNT2A);
640640

641-
return fdef(flag2, CATCO, VERB, f1, f2, a, w, 0L, flag, RMAX, RMAX, RMAX);
641+
return jtfdef(jt, flag2, CATCO, VERB, f1, f2, a, w, 0L, flag, RMAX, RMAX, RMAX);
642642
}
643643

644644
// u&:v
@@ -693,7 +693,7 @@ jtampco(J jt, A a, A w) {
693693
flag2 |= (f1 == on1cell) << VF2RANKATOP1X;
694694
flag2 |= VF2RANKATOP2;
695695
A z;
696-
RZ(z = fdef(flag2, CAMPCO, VERB, f1, f2, a, w, 0L, flag, RMAX, RMAX, RMAX));
696+
RZ(z = jtfdef(jt, flag2, CAMPCO, VERB, f1, f2, a, w, 0L, flag, RMAX, RMAX, RMAX));
697697
FAV(z)->localuse.lclr[0] = linktype;
698698
return z;
699699
}
@@ -822,7 +822,7 @@ jtamp(J jt, A a, A w) {
822822
flag &= ~VJTFLGOK1;
823823
}
824824
}
825-
return fdef(0, CAMP, VERB, f1, with2, a, w, h, flag, RMAX, RMAX, RMAX);
825+
return jtfdef(jt, 0, CAMP, VERB, f1, with2, a, w, h, flag, RMAX, RMAX, RMAX);
826826
case VN:
827827
f1 = withr;
828828
v = FAV(a);
@@ -862,7 +862,7 @@ jtamp(J jt, A a, A w) {
862862
flag &= ~VJTFLGOK1;
863863
}
864864
}
865-
return fdef(0, CAMP, VERB, f1, with2, a, w, h, flag, RMAX, RMAX, RMAX);
865+
return jtfdef(jt, 0, CAMP, VERB, f1, with2, a, w, h, flag, RMAX, RMAX, RMAX);
866866
case VV:
867867
// u&v
868868
f1 = on1;
@@ -963,7 +963,7 @@ jtamp(J jt, A a, A w) {
963963
}
964964
}
965965
A z;
966-
RZ(z = fdef(flag2, CAMP, VERB, f1, f2, a, w, 0L, flag, r, r, r));
966+
RZ(z = jtfdef(jt, flag2, CAMP, VERB, f1, f2, a, w, 0L, flag, r, r, r));
967967
FAV(z)->localuse.lclr[0] = linktype;
968968
return z;
969969
}

‎jsrc/conjunctions/cc.c

+4-4
Original file line numberDiff line numberDiff line change
@@ -1951,24 +1951,24 @@ jtcut(J jt, A a, A w) {
19511951
switch (k) {
19521952
case 0:
19531953
if (FAV(a)->id == CBOX) { // <;.0
1954-
RZ(z = fdef(0, CCUT, VERB, jtcut01, jtboxcut0, a, w, h, flag | VJTFLGOK2, RMAX, 2L, RMAX));
1954+
RZ(z = jtfdef(jt, 0, CCUT, VERB, jtcut01, jtboxcut0, a, w, h, flag | VJTFLGOK2, RMAX, 2L, RMAX));
19551955
FAV(z)->localuse.lpf.parm = ~0;
19561956
FAV(z)->localuse.lpf.func = jtcut02; // store parms to specify start/len format
19571957
return z;
19581958
}
1959-
z = fdef(0, CCUT, VERB, jtcut01, jtcut02, a, w, h, flag | VJTFLGOK2, RMAX, 2L, RMAX);
1959+
z = jtfdef(jt, 0, CCUT, VERB, jtcut01, jtcut02, a, w, h, flag | VJTFLGOK2, RMAX, 2L, RMAX);
19601960
break;
19611961
case 1:
19621962
case -1:
19631963
case 2:
19641964
case -2:
19651965
if (!(NOUN & AT(a))) flag = VJTFLGOK2 + VJTFLGOK1;
1966-
z = fdef(0, CCUT, VERB, jtcut1, jtcut2, a, w, h, flag, RMAX, 1L, RMAX);
1966+
z = jtfdef(jt, 0, CCUT, VERB, jtcut1, jtcut2, a, w, h, flag, RMAX, 1L, RMAX);
19671967
break;
19681968
case 3:
19691969
case -3:
19701970
case 259:
1971-
case -259: z = fdef(0, CCUT, VERB, jttess1, jttess2, a, w, h, flag, RMAX, 2L, RMAX); break;
1971+
case -259: z = jtfdef(jt, 0, CCUT, VERB, jttess1, jttess2, a, w, h, flag, RMAX, 2L, RMAX); break;
19721972
default: ASSERT(0, EVDOMAIN);
19731973
}
19741974
RZ(z);

‎jsrc/conjunctions/cf.c

+4-4
Original file line numberDiff line numberDiff line change
@@ -304,7 +304,7 @@ jtfolk(J jt, A f, A g, A h) {
304304
flag &= ~(VJTFLGOK1);
305305
} // (N {~ N i, ])
306306
}
307-
return fdef(0, CFORK, VERB, f1, jtnvv2, f, g, h, flag, RMAX, RMAX, RMAX);
307+
return jtfdef(jt, 0, CFORK, VERB, f1, jtnvv2, f, g, h, flag, RMAX, RMAX, RMAX);
308308
}
309309
fv = FAV(f);
310310
fi = jtcap(jt, f) ? CCAP : fv->id; // if f is a name defined as [:, detect that now & treat it as if capped fork
@@ -451,7 +451,7 @@ jtfolk(J jt, A f, A g, A h) {
451451
// If this fork is not a special form, set the flags to indicate whether the f verb does not use an
452452
// argument. In that case h can inplace the unused argument.
453453
if (f1 == jtfolk1 && f2 == jtfolk2) flag |= atoplr(f);
454-
return fdef(flag2, CFORK, VERB, f1, f2, f, g, h, flag, RMAX, RMAX, RMAX);
454+
return jtfdef(jt, flag2, CFORK, VERB, f1, f2, f, g, h, flag, RMAX, RMAX, RMAX);
455455
}
456456

457457
// Handlers for to handle w (aa), w (vc), w (cv)
@@ -725,7 +725,7 @@ jthook(J jt, A a, A w) {
725725
}
726726
// Return the derived verb
727727
A z;
728-
RZ(z = fdef(0, CHOOK, VERB, f1, f2, a, w, 0L, flag, RMAX, RMAX, RMAX));
728+
RZ(z = jtfdef(jt, 0, CHOOK, VERB, f1, f2, a, w, 0L, flag, RMAX, RMAX, RMAX));
729729
FAV(z)->localuse.lclr[0] = linktype;
730730
return z; // if it's a form of ;, install the form
731731
// All other cases produce an adverb
@@ -742,5 +742,5 @@ jthook(J jt, A a, A w) {
742742
id = ID(a);
743743
if (BOX & AT(w) && (id == CGRAVE || id == CPOWOP && 1 < AN(w)) && jtgerexact(jt, w)) flag += VGERR;
744744
}
745-
return fdef(0, CADVF, ADV, f1, 0L, a, w, 0L, flag, 0L, 0L, 0L);
745+
return jtfdef(jt, 0, CADVF, ADV, f1, 0L, a, w, 0L, flag, 0L, 0L, 0L);
746746
}

‎jsrc/conjunctions/cg.c

+5-5
Original file line numberDiff line numberDiff line change
@@ -199,10 +199,10 @@ jtevger(J jt, A a, A w) {
199199
if (k == GTRAIN) return jtexg(jt, a);
200200
RZ(hs = jtfxeachv(jt, RMAX, a));
201201
switch (k) {
202-
case GAPPEND: return fdef(0, CGRCO, VERB, jtcon1, jtcon2, a, w, hs, VGERL, RMAX, RMAX, RMAX);
202+
case GAPPEND: return jtfdef(jt, 0, CGRCO, VERB, jtcon1, jtcon2, a, w, hs, VGERL, RMAX, RMAX, RMAX);
203203
case GINSERT:
204204
ASSERT(1 >= AR(a), EVRANK);
205-
return fdef(0, CGRCO, VERB, jtinsert, 0L, a, w, hs, VGERL, RMAX, 0L, 0L);
205+
return jtfdef(jt, 0, CGRCO, VERB, jtinsert, 0L, a, w, hs, VGERL, RMAX, 0L, 0L);
206206
default: ASSERT(0, EVDOMAIN);
207207
}
208208
}
@@ -477,7 +477,7 @@ jtagendai(J jt, A a, A w) {
477477
flag = VASGSAFE & FAV(w)->flag;
478478
A *avbv = AAV(avb);
479479
DQ(AN(avb), flag &= FAV(*avbv)->flag; ++avbv;); // Don't increment inside FAV!
480-
return fdef(0,
480+
return jtfdef(jt, 0,
481481
CATDOT,
482482
VERB,
483483
jtcasei12,
@@ -565,7 +565,7 @@ jtgconj(J jt, A a, A w, C id) {
565565
ASSERT((n & -2) == 2, EVLENGTH); // length is 2 or 3
566566
ASSERT(BOX & AT(y), EVDOMAIN);
567567
RZ(hs = jtfxeach(jt, 3 == n ? y : link(jtscc(jt, CLBKTC), y), (A)&jtfxself[0]));
568-
return fdef(
568+
return jtfdef(jt,
569569
0, id, VERB, na ? jtgcl1 : jtgcr1, na ? jtgcl2 : jtgcr2, a, w, hs, na ? VGERL : VGERR, RMAX, RMAX, RMAX);
570570
}
571571

@@ -657,5 +657,5 @@ jtgadv(J jt, A w, C id) {
657657
ASSERT(AT(AAV(hs)[0]) & AT(AAV(hs)[1]) & AT(AAV(hs)[2]) & VERB, EVDOMAIN);
658658
I flag = (FAV(AAV(hs)[0])->flag & FAV(AAV(hs)[1])->flag & FAV(AAV(hs)[2])->flag & VASGSAFE) + (VGERL | VJTFLGOK2) +
659659
atoplr(AAV(hs)[0]);
660-
return fdef(0, id, VERB, jtgav1, jtgav2, w, 0L, hs, flag, RMAX, RMAX, RMAX); // create the derived verb
660+
return jtfdef(jt, 0, id, VERB, jtgav1, jtgav2, w, 0L, hs, flag, RMAX, RMAX, RMAX); // create the derived verb
661661
}

‎jsrc/conjunctions/ch.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -148,5 +148,5 @@ jthgeom(J jt, A a, A w) {
148148
ASSERT(1 >= AR(w), EVRANK);
149149
}
150150
RZ(h = jtcancel(jt, c, d));
151-
return fdef(0, CHGEOM, VERB, jthgeom1, jthgeom2, a, w, h, 0L, 0L, 0L, 0L);
151+
return jtfdef(jt, 0, CHGEOM, VERB, jthgeom1, jthgeom2, a, w, h, 0L, 0L, 0L, 0L);
152152
} /* a H. w */

‎jsrc/conjunctions/cip.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -755,5 +755,5 @@ jtdot(J jt, A a, A w) {
755755
jt, "[: -/\"1 {.\"2 * |.\"1@:({:\"2)")); // -/ . * - calculate some function used by determinant?
756756
}
757757
}
758-
return fdef(0, CDOT, VERB, jtdet, f2, a, w, h, 0L, 2L, RMAX, RMAX);
758+
return jtfdef(jt, 0, CDOT, VERB, jtdet, f2, a, w, h, 0L, 2L, RMAX, RMAX);
759759
}

‎jsrc/conjunctions/cl.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -211,7 +211,7 @@ jtlsub(J jt, C id, A a, A w) {
211211
hv[0] = v[2 == n];
212212
hv[1] = v[3 == n];
213213
hv[2] = v[n - 1]; // monad, left, right
214-
return fdef(
214+
return jtfdef(jt,
215215
0, id, VERB, b ? jtlcapco1 : jtscapco1, b ? jtlcapco2 : jtscapco2, a, w, h, VFLAGNONE, RMAX, RMAX, RMAX);
216216
}
217217

‎jsrc/conjunctions/cp.c

+3-3
Original file line numberDiff line numberDiff line change
@@ -513,9 +513,9 @@ jtpowop(J jt, A a, A w, A self) {
513513
flag = (FAV(a)->flag & VASGSAFE) +
514514
(h ? FAV(h)->flag & VJTFLGOK1
515515
: VJTFLGOK1); // inv1 inplaces and calculates ip for next step; invh has ip from inverse
516-
return fdef(0, CPOWOP, VERB, (AF)(f1), jtinv2, a, w, h, flag, RMAX, RMAX, RMAX);
516+
return jtfdef(jt, 0, CPOWOP, VERB, (AF)(f1), jtinv2, a, w, h, flag, RMAX, RMAX, RMAX);
517517
} else { // u^:_
518-
return fdef(0, CPOWOP, VERB, jtpinf12, jtpinf12, a, w, 0, VFLAGNONE, RMAX, RMAX, RMAX);
518+
return jtfdef(jt, 0, CPOWOP, VERB, jtpinf12, jtpinf12, a, w, 0, VFLAGNONE, RMAX, RMAX, RMAX);
519519
}
520520
}
521521
if (IAV(hs)[0] >= 0) {
@@ -526,6 +526,6 @@ jtpowop(J jt, A a, A w, A self) {
526526
// If not special case, fall through to handle general case
527527
I m = AN(hs); // m=#atoms of n; n=1st atom; r=n has rank>0
528528
ASSERT(m != 0, EVDOMAIN); // empty power is error
529-
return fdef(0, CPOWOP, VERB, f1, jtply2, a, w, hs, flag, RMAX, RMAX, RMAX); // Create derived verb: pass in integer
529+
return jtfdef(jt, 0, CPOWOP, VERB, f1, jtply2, a, w, hs, flag, RMAX, RMAX, RMAX); // Create derived verb: pass in integer
530530
// powers as h
531531
}

‎jsrc/conjunctions/cr.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -1174,7 +1174,7 @@ jtqq(J jt, A a, A w) {
11741174
// Create the derived verb. The derived verb (u"n) NEVER supports IRS; it inplaces if the action verb u supports
11751175
// inplacing
11761176
A z;
1177-
RZ(z = fdef(flag2, CQQ, VERB, f1, f2, a, w, ger, vf, r[0], r[1], r[2]));
1177+
RZ(z = jtfdef(jt, flag2, CQQ, VERB, f1, f2, a, w, ger, vf, r[0], r[1], r[2]));
11781178
FAV(z)->localuse.lI4[0] = (I4)hv[0];
11791179
FAV(z)->localuse.lI4[1] = (I4)hv[1];
11801180
FAV(z)->localuse.lI4[2] = (I4)hv[2]; // pass the possibly-negative ranks in through localuse

‎jsrc/conjunctions/cu.c

+3-3
Original file line numberDiff line numberDiff line change
@@ -485,7 +485,7 @@ jtunder(J jt, A a, A w) {
485485
switch (v->id &
486486
gside) { // never special if gerund - this could evaluate to 0 or 1, neither of which is one of these codes
487487
case COPE:
488-
return fdef(VF2WILLOPEN1 | VF2WILLOPEN2A | VF2WILLOPEN2W,
488+
return jtfdef(jt, VF2WILLOPEN1 | VF2WILLOPEN2A | VF2WILLOPEN2W,
489489
CUNDER,
490490
VERB,
491491
jteveryself,
@@ -570,7 +570,7 @@ jtunder(J jt, A a, A w) {
570570
flag2 |= VF2RANKATOP2;
571571
flag &= FAV(h)->flag | (~VJTFLGOK2);
572572
} // allow inplace if v is known inplaceable
573-
RZ(h = fdef(flag2, CUNDER, VERB, (AF)(f1), (AF)(f2), a, w, h, (flag), rmr, rlr, rrr));
573+
RZ(h = jtfdef(jt, flag2, CUNDER, VERB, (AF)(f1), (AF)(f2), a, w, h, (flag), rmr, rlr, rrr));
574574
// install wvb into the verb so we can get to it if needed
575575
FAV(h)->localuse.lvp[0] = wvb;
576576
return h;
@@ -616,7 +616,7 @@ jtundco(J jt, A a, A w) {
616616
if (!f1) f1 = flag & VFUNDERHASINV ? jtunderh1 : jtundco1;
617617
f2 = flag & VFUNDERHASINV ? jtunderh2 : jtundco2;
618618
flag |= (FAV(a)->flag & FAV(wvb)->flag & VASGSAFE) + (FAV(h)->flag & (VJTFLGOK1 | VJTFLGOK2));
619-
RZ(h = fdef(0, CUNDCO, VERB, (AF)(f1), (AF)(f2), a, w, h, flag, RMAX, RMAX, RMAX));
619+
RZ(h = jtfdef(jt, 0, CUNDCO, VERB, (AF)(f1), (AF)(f2), a, w, h, flag, RMAX, RMAX, RMAX));
620620
// install wvb into the verb so we can get to it if needed
621621
FAV(h)->localuse.lvp[0] = wvb;
622622
return h;

‎jsrc/conjunctions/cv.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ jtfitct(J jt, A a, A w, I cno) {
4040
d = DAV(w)[0];
4141
} // 0 is usual; otherwise it better be FL, but convert in case its value is 0
4242
ASSERT(0 <= d && d < 5.82076609134675e-11, EVDOMAIN); // can't be greater than 2^_34
43-
A fn = fdef(0,
43+
A fn = jtfdef(jt, 0,
4444
CFIT,
4545
VERB,
4646
(AF)(jtfitct1),

0 commit comments

Comments
 (0)