give PUSH_COMP access to the updated source string
This commit is contained in:
parent
f73e15f8a3
commit
e781ae21ee
@ -186,8 +186,8 @@ B bqn_repr(B x) {
|
|||||||
if (CATCH) { POP_COMP; rethrow(); }
|
if (CATCH) { POP_COMP; rethrow(); }
|
||||||
|
|
||||||
static NOINLINE Block* bqn_compc(B str, B path, B args, B comp, B compArg) { // consumes str,path,args
|
static NOINLINE Block* bqn_compc(B str, B path, B args, B comp, B compArg) { // consumes str,path,args
|
||||||
PUSH_COMP;
|
|
||||||
str = chr_squeeze(str);
|
str = chr_squeeze(str);
|
||||||
|
PUSH_COMP;
|
||||||
Block* r = load_compObj(c2G(comp, incG(compArg), inc(str)), str, path, NULL);
|
Block* r = load_compObj(c2G(comp, incG(compArg), inc(str)), str, path, NULL);
|
||||||
dec(path); dec(args);
|
dec(path); dec(args);
|
||||||
POP_COMP; popCatch();
|
POP_COMP; popCatch();
|
||||||
@ -197,8 +197,8 @@ Block* bqn_comp(B str, B path, B args) { // consumes all
|
|||||||
return bqn_compc(str, path, args, load_comp, load_compArg);
|
return bqn_compc(str, path, args, load_comp, load_compArg);
|
||||||
}
|
}
|
||||||
Block* bqn_compScc(B str, B path, B args, Scope* sc, B comp, B rt, bool repl) { // consumes str,path,args
|
Block* bqn_compScc(B str, B path, B args, Scope* sc, B comp, B rt, bool repl) { // consumes str,path,args
|
||||||
PUSH_COMP;
|
|
||||||
str = chr_squeeze(str);
|
str = chr_squeeze(str);
|
||||||
|
PUSH_COMP;
|
||||||
B vName = emptyHVec();
|
B vName = emptyHVec();
|
||||||
B vDepth = emptyIVec();
|
B vDepth = emptyIVec();
|
||||||
if (repl && (!sc || sc->psc)) thrM("VM compiler: REPL mode must be used at top level scope");
|
if (repl && (!sc || sc->psc)) thrM("VM compiler: REPL mode must be used at top level scope");
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user