diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-19 01:22:11 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-19 01:22:11 +0000 |
commit | af7a143e3a13e932e243165814fa40424507dae0 (patch) | |
tree | b0b22dedd5754449a9565049f3b4552f4ae2c71f /src/interp/nruncomp.boot | |
parent | 43e465553496af8449014857fdd95386b6e8fd66 (diff) | |
download | open-axiom-af7a143e3a13e932e243165814fa40424507dae0.tar.gz |
* interp/buildom.boot (lookupInDomainVector): Establish a new
binding for $lookupDefaults.
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index b4105dbd..7dcde37c 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -160,7 +160,7 @@ needToQuoteFlags?(sig,env) == IDENTP t and null get(t,"value",e) optDeltaEntry(op,sig,dc,eltOrConst) == - $killOptimizeIfTrue = true => nil + $killOptimizeIfTrue => nil -- references to modemaps from current domain are folded in a later -- stage of the compilation process. dc is '$ => nil @@ -195,7 +195,7 @@ genDeltaEntry(opMmPair,e) == --called from compApplyModemap --$NRTdeltaLength=0.. always equals length of $NRTdeltaList [op,[dc,:sig],[.,cform:=[eltOrConst,.,nsig]]] := opMmPair - if $profileCompiler = true then profileRecord(dc,op,sig) + if $profileCompiler then profileRecord(dc,op,sig) eltOrConst is 'XLAM => cform if eltOrConst is 'Subsumed then eltOrConst := 'ELT if atom dc then |