diff options
author | dos-reis <gdr@axiomatics.org> | 2011-12-07 14:04:03 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-12-07 14:04:03 +0000 |
commit | 8bb0285d95781908ccf43c68fb6e77dddcfd2957 (patch) | |
tree | fc40faa45635542e8b401db3784b04ad7bea9ab7 /src/interp/nruncomp.boot | |
parent | 682a48e0c01c5cc090858c8300857ef5d01d30ba (diff) | |
download | open-axiom-8bb0285d95781908ccf43c68fb6e77dddcfd2957.tar.gz |
* interp/compiler.boot (compReduce1): Tidy.
* interp/define.boot (compDefineCategory2): Likewise.
* interp/nruncomp.boot (buildFunctor): Likewise.
* interp/slam.boot (compileRecurrenceRelation): Likewise.
* interp/lisp-backend.boot (expandSeq): Use PROGN in absence of EXIT.
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 99e95197..cb78812a 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -516,8 +516,8 @@ buildFunctor(db,sig,code,$locals,$e) == [NRTputInLocalReferences(db,code) for code in $ConstantAssignments] codePart3 := [:$ConstantAssignments,:$epilogue] ans := ["%bind",bindings, - :washFunctorBody optFunctorBody - [:codePart1,:codePart2,:codePart3],"$"] + ['%seq,:washFunctorBody optFunctorBody + [:codePart1,:codePart2,:codePart3],"$"]] $getDomainCode := nil --if we didn't kill this, DEFINE would insert it in the wrong place SAY ['"time taken in buildFunctor: ",TEMPUS_-FUGIT()-oldtime] |