diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-24 15:31:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-24 15:31:17 +0000 |
commit | 8993bc2fe00eb48b57945b850c14bde8fae1dfb7 (patch) | |
tree | a872ac9d190de6a5cd3297039b5580529b6b78f2 /src/interp/i-eval.boot | |
parent | 3c32b47b560563cf217ab2781d14ac65e0e12e30 (diff) | |
download | open-axiom-8993bc2fe00eb48b57945b850c14bde8fae1dfb7.tar.gz |
* interp/i-object.boot (object): New. Abstract over boilerplate.
* interp/i-analy.boot: Use it in place of boilerplate.
* interp/i-eval.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r-- | src/interp/i-eval.boot | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot index a172534b..652818fb 100644 --- a/src/interp/i-eval.boot +++ b/src/interp/i-eval.boot @@ -355,15 +355,10 @@ getArgValueComp(arg,type,cond) == keyedMsgCompFailure("S2IE0010",[n]) evalFormMkValue(op,form,tm) == - val:= - u:= - $genValue => wrap timedEVALFUN form - form - objNew(u,tm) ---+ + val := object(form,tm) if $NRTmonitorIfTrue = true then sayBrightlyNT ['"Value of ",op.0,'" ===> "] - pp unwrap u + pp objValUnwrap val putValue(op,val) [tm] |