diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 71cd6a21..8981fd7e 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -164,8 +164,10 @@ needToQuoteFlags?(sig,env) == optDeltaEntry(op,sig,dc,eltOrConst) == $killOptimizeIfTrue = true => nil + -- references to modemaps from current domain are folded in a later + -- stage of the compilation process. + dc = '$ => nil ndc := - dc = '$ => $functorForm atom dc and (dcval := get(dc,'value,$e)) => dcval.expr dc sig := MSUBST(ndc,dc,sig) |