From f739a0a8d77e564cf9a7853b0f135c99b45ff831 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 26 Jan 2011 05:06:32 +0000 Subject: * 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. --- src/interp/wi1.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/wi1.boot') 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 -- cgit v1.2.3