diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-16 23:03:24 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-16 23:03:24 +0000 |
commit | 103781c30e982fd28102d9268c2fb23863a1f971 (patch) | |
tree | 718780f98f83afa36c35a13b2b744815393264d1 /src/interp/compiler.boot | |
parent | 75785332c38348183886d635d0b3073d966caea6 (diff) | |
download | open-axiom-103781c30e982fd28102d9268c2fb23863a1f971.tar.gz |
* interp/i-util.boot (flattenCOND): Move from g-boot.boot.
(extractCONDClauses): Likewise.
* interp/g-boot.boot: Remove.
* interp/def.lisp: Likewise.
* interp/Makefile.pamphlet: Adjust dependencies.
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index f55cbd31..c59519a8 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -886,7 +886,7 @@ setqMultiple(nameList,val,m,e) == [([.,.,e]:= compSetq1(x,["elt",g,y],z,e) or return "failed").expr for x in nameList for [y,:z] in selectorModePairs] if assignList="failed" then NIL - else [MKPROGN [x,:assignList,g],m',e] + else [mkpf([x,:assignList,g],'PROGN),m',e] setqMultipleExplicit(nameList,valList,m,e) == #nameList~=#valList => |