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-analy.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-analy.boot')
| -rw-r--r-- | src/interp/i-analy.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index b42551f3..30d8603a 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -598,8 +598,7 @@ bottomUpForm0(t,op,opName,argl,argModeSetList) == rtype := ['Record,:rargs] code := optRECORDCOPY(['RECORDCOPY,getArgValue(first argl, rtype),#rargs]) - if $genValue then code := wrap timedEVALFUN code - val := objNew(code,rtype) + val := object(code,rtype) putValue(t,val) putModeSet(t,[rtype]) |