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/g-opt.boot | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/interp/g-opt.boot') diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 718c06aa..b0211eb4 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -296,7 +296,7 @@ compileTimeBindingOf u == name optMkRecord ["mkRecord",:u] == - u is [x] => ["LIST",x] + u is [x] => ['%listlit,x] #u=2 => ['%makepair,:u] ["VECTOR",:u] @@ -420,7 +420,7 @@ optSETRECORDELT ["SETRECORDELT",name,ind,len,expr] == ['%store,['%vref,name,ind],expr] optRECORDCOPY ["RECORDCOPY",name,len] == - len = 1 => ["LIST",['%head,name]] + len = 1 => ['%listlit,['%head,name]] len = 2 => ['%makepair,['%head,name],['%tail,name]] ["REPLACE",["MAKE_-VEC",len],name] @@ -605,8 +605,8 @@ optTry form == form isnt ['try,e,hs,f] or not(isFloatableVMForm e) or f ~= nil => form e -optLIST form == - form is ["LIST"] => nil +optListlit form == + form is ['%listlit] => nil form optCollectVector form == @@ -794,7 +794,7 @@ for x in '( (%call optCall) _ (%imul optImul)_ (%2bit opt2bit)_ (%2bool opt2bool)_ - (LIST optLIST)_ + (%listlit optListlit)_ (QSMINUS optQSMINUS)_ (SPADCALL optSPADCALL)_ (_| optSuchthat)_ -- cgit v1.2.3