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/i-eval.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/i-eval.boot')
| -rw-r--r-- | src/interp/i-eval.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot index 9d848d27..6eb520b2 100644 --- a/src/interp/i-eval.boot +++ b/src/interp/i-eval.boot @@ -263,7 +263,7 @@ evalForm(op,opName,argl,mmS) == sameObject?(bpi,function Undef) => sayKeyedMsg("S2IE0009",[opName,formatSignature rest sig,first sig]) nil - if $NRTmonitorIfTrue = true then + if $NRTmonitorIfTrue then sayBrightlyNT ['"Applying ",first fun0,'" to:"] pp [devaluateDeeply x for x in form] $: local := domain @@ -346,7 +346,7 @@ getArgValueComp(arg,type,cond) == evalFormMkValue(op,form,tm) == val := object(form,tm) - if $NRTmonitorIfTrue = true then + if $NRTmonitorIfTrue then sayBrightlyNT ['"Value of ",op.0,'" ===> "] pp objValUnwrap val putValue(op,val) |