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/g-opt.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/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 10 |
1 files changed, 5 insertions, 5 deletions
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)_ |