add missed decrements, expand test

This commit is contained in:
dzaima 2023-11-26 01:27:36 +02:00
parent 3f62a51305
commit 71ade3e9c6
2 changed files with 6 additions and 3 deletions

View File

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

View File

@ -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} gF"•ReBQN" G {system"foo""bar", "baz", "bqn", "rebqn"} !"•ReBQN: No system value ""bqn"" to inherit" % f•ReBQN{system"baz"1, "rebqn", "foo"2} gF"•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