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(); }
|
||||
|
||||
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);
|
||||
PUSH_COMP;
|
||||
Block* r = load_compObj(c2G(comp, incG(compArg), inc(str)), str, path, NULL);
|
||||
dec(path); dec(args);
|
||||
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);
|
||||
}
|
||||
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);
|
||||
PUSH_COMP;
|
||||
B vName = emptyHVec();
|
||||
B vDepth = emptyIVec();
|
||||
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