diff --git a/src/vm.c b/src/vm.c index 28fa48e6..ae0c9d3e 100644 --- a/src/vm.c +++ b/src/vm.c @@ -1347,7 +1347,7 @@ NOINLINE B vm_fmtPoint(B src, B prepend, B path, usz cs, usz ce) { // consumes p i64 ln = 1; for (usz i = 0; i < srcS; i++) if(o2cG(GetU(src, i))=='\n') ln++; B s = prepend; - if (!isArr(path) || path.u==replName.u) AFMT("at "); + if (!isArr(path) || path.u==replName.u || IA(path)==0) AFMT("at "); else AFMT("%R:%l:\n ", path, ln); i64 padEnd = (i64)IA(s); i64 padStart = padEnd; diff --git a/test/cases/system.bqn b/test/cases/system.bqn index 57bb84b8..2a38d9d5 100644 --- a/test/cases/system.bqn +++ b/test/cases/system.bqn @@ -54,6 +54,7 @@ f←•ReBQN{primitives⇐⋈'÷'‿- ⋄ system⇐⟨"foo"‿⋈, "oldbqn"‿ !"•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⇐⟨"primitives", "foo"‿⋈, "bqn", "listsys"⟩} ⋄ F"•primitives‿•listsys" %% ⟨⟨'÷'‿-⟩ ⋄ ⟨"primitives","foo","bqn","listsys"⟩⟩ +# TODO test stacktrace of {𝕏"!0"}•ReBQN{⇐} # •primitives !∧´2=•Type¨ ⊑¨•primitives