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/slam.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/slam.boot')
-rw-r--r-- | src/interp/slam.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index 3adb29c9..ce9c4ad4 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -280,7 +280,7 @@ compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) == rotateCode:= [["%LET",p,q] for p in gsRev for q in [:rest gsRev,g]] advanceCode:= ["%LET",gIndex,['ADD1,gIndex]] - newTripleCode := ["LIST",sharpArg,:gsList] + newTripleCode := ['%listlit,sharpArg,:gsList] newStateCode := null extraArguments => ["%store",["%dynval", MKQ stateNam],newTripleCode] ["HPUT",["%dynval", MKQ stateNam],extraArgumentCode,newTripleCode] @@ -304,7 +304,7 @@ compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) == mainFunction:= [nam,["LAM",margl,mbody]] where margl:= [:argl,'envArg] max:= gensym() - tripleCode := ["CONS",n,["LIST",:initCode]] + tripleCode := ["CONS",n,['%listlit,:initCode]] -- initialSetCode initializes the global variable if necessary and -- also binds "stateVar" to its current value @@ -332,9 +332,9 @@ compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) == [auxfn,:argl,stateVar]] phrase2:= [["%igt",sharpArg,["SETQ",max,["DIFFERENCE",max,k]]], ["ELT",stateVar,["QSADD1",["QSDIFFERENCE",k,["DIFFERENCE",sharpArg,max]]]]] - phrase3:= [["%igt",sharpArg,n],[auxfn,:argl,["LIST",n,:initCode]]] + phrase3:= [["%igt",sharpArg,n],[auxfn,:argl,['%listlit,n,:initCode]]] phrase4:= [["%igt",sharpArg,n-k], - ["ELT",["LIST",:initCode],["QSDIFFERENCE",n,sharpArg]]] + ["ELT",['%listlit,:initCode],["QSDIFFERENCE",n,sharpArg]]] phrase5:= ['%true,['recurrenceError,MKQ op,sharpArg]] ['PROGN,:preset,['COND,phrase1,phrase2,phrase3,phrase4,phrase5]] if $verbose then |