add missed decrements, expand test
This commit is contained in:
parent
3f62a51305
commit
71ade3e9c6
@ -329,7 +329,7 @@ void init_comp(B* new_re, B* prev_re, B prim, B sys) {
|
|||||||
B prevN = prev_re[re_sysNames];
|
B prevN = prev_re[re_sysNames];
|
||||||
B prevV = prev_re[re_sysVals];
|
B prevV = prev_re[re_sysVals];
|
||||||
B idxs = C2(indexOf, incG(prevN), inhNs);
|
B idxs = C2(indexOf, incG(prevN), inhNs);
|
||||||
B inhNIs = C1(slash, incG(inhA));
|
B inhNIs = C1(slash, inhA);
|
||||||
SGetU(idxs) SGet(prevV) SGetU(inhNIs)
|
SGetU(idxs) SGet(prevV) SGetU(inhNIs)
|
||||||
for (usz i = 0; i < inhN; i++) {
|
for (usz i = 0; i < inhN; i++) {
|
||||||
usz oi = o2sG(GetU(inhNIs,i));
|
usz oi = o2sG(GetU(inhNIs,i));
|
||||||
@ -338,7 +338,10 @@ void init_comp(B* new_re, B* prev_re, B prim, B sys) {
|
|||||||
HARR_O(nvs).a[oi] = Get(prevV, idx);
|
HARR_O(nvs).a[oi] = Get(prevV, idx);
|
||||||
}
|
}
|
||||||
decG(inhNIs); decG(idxs);
|
decG(inhNIs); decG(idxs);
|
||||||
} else decG(inhNs);
|
} else {
|
||||||
|
decG(inhNs);
|
||||||
|
decG(inhA);
|
||||||
|
}
|
||||||
|
|
||||||
new_re[re_sysNames] = nnsA;
|
new_re[re_sysNames] = nnsA;
|
||||||
new_re[re_sysVals] = HARR_FV(nvs);
|
new_re[re_sysVals] = HARR_FV(nvs);
|
||||||
|
|||||||
@ -37,7 +37,7 @@ ps ← ⟨'÷'‿÷⟩ ⋄ f←•ReBQN {repl⇐"loose" ⋄ primitives⇐ps} ⋄
|
|||||||
f←•ReBQN{primitives⇐⋈'÷'‿- ⋄ system⇐⟨"foo"‿⋈, "oldbqn"‿•BQN, "bqn"⟩} ⋄ {𝕏 "÷5"}¨ F "⟨•foo, •OldBQN, •BQN⟩" %% ⟨⋈"÷5", 0.2, ¯5⟩
|
f←•ReBQN{primitives⇐⋈'÷'‿- ⋄ system⇐⟨"foo"‿⋈, "oldbqn"‿•BQN, "bqn"⟩} ⋄ {𝕏 "÷5"}¨ F "⟨•foo, •OldBQN, •BQN⟩" %% ⟨⋈"÷5", 0.2, ¯5⟩
|
||||||
!"•ReBQN: No system value ""baz"" to inherit" % •ReBQN{system⇐⟨"foo"‿"bar", "bqn", "baz", "rebqn"⟩}
|
!"•ReBQN: No system value ""baz"" to inherit" % •ReBQN{system⇐⟨"foo"‿"bar", "bqn", "baz", "rebqn"⟩}
|
||||||
!"•ReBQN: No system value ""bqn"" to inherit" % f←•ReBQN{system⇐⟨"baz"‿1, "rebqn", "foo"‿2⟩} ⋄ g←F"•ReBQN" ⋄ G {system⇐⟨"foo"‿"bar", "baz", "bqn", "rebqn"⟩}
|
!"•ReBQN: No system value ""bqn"" to inherit" % f←•ReBQN{system⇐⟨"baz"‿1, "rebqn", "foo"‿2⟩} ⋄ g←F"•ReBQN" ⋄ G {system⇐⟨"foo"‿"bar", "baz", "bqn", "rebqn"⟩}
|
||||||
f←•ReBQN{primitives⇐⋈'÷'‿- ⋄ system⇐⟨"foo"‿⋈, "bqn", "listsys"⟩} ⋄ F"•listsys" %% ⟨"foo","bqn","listsys"⟩
|
f←•ReBQN{primitives⇐⋈'÷'‿- ⋄ system⇐⟨"primitives", "foo"‿⋈, "bqn", "listsys"⟩} ⋄ F"•primitives‿•listsys" %% ⟨⟨'÷'‿-⟩ ⋄ ⟨"primitives","foo","bqn","listsys"⟩⟩
|
||||||
|
|
||||||
|
|
||||||
# •primitives
|
# •primitives
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user