diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-26 05:06:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-26 05:06:32 +0000 |
| commit | f739a0a8d77e564cf9a7853b0f135c99b45ff831 (patch) | |
| tree | fbd1d273b02e5e5829b43e69155502416d53cda8 /src/interp/wi1.boot | |
| parent | 5bcd66d747349ff167ffcd3953c95faf08aa8c1e (diff) | |
| download | open-axiom-f739a0a8d77e564cf9a7853b0f135c99b45ff831.tar.gz | |
* interp/compiler.boot (compForm1): Use %listlit form.
(compExpressionList): Likewise.
(compCons1): Likewise.
(compList): Likewise.
(compVector): Likewise.
* interp/g-timer.boot (timedEvaluate): Likewise.
* interp/wi1.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/i-object.boot: Likewise.
* interp/g-opt.boot (optMkRecord): Likewise.
(optRECORDCOPY): Likewise.
(optLIST): Remove.
(optListlit): New.
* interp/g-util.boot (optListlit): New. Expand %listlit forms.
Diffstat (limited to 'src/interp/wi1.boot')
| -rw-r--r-- | src/interp/wi1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index bc72afb4..88fd76ce 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -689,7 +689,7 @@ compList(l,m is ["List",mUnder],e) == Tl:= [[.,mUnder,e]:= comp(x,mUnder,e) or return "failed" for i in 1.. for x in l] Tl="failed" => nil - T:= [["LIST",:[T.expr for T in Tl]],["List",mUnder],e] + T:= [['%listlit,:[T.expr for T in Tl]],["List",mUnder],e] compVector(l,m is ["Vector",mUnder],e) == markImport m |