diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 01:35:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 01:35:42 +0000 |
| commit | 7d5b2b21ade3d46ac5d4b521e5b9ef08aac96d63 (patch) | |
| tree | 70c495c4f317f6a66c547c42162ef7c49c4c92f2 /src/interp/g-opt.boot | |
| parent | 3f5e2de70e2d7444bfb5fa1d6e33bb9ac2dee102 (diff) | |
| download | open-axiom-7d5b2b21ade3d46ac5d4b521e5b9ef08aac96d63.tar.gz | |
* interp/c-util.boot: Replace uses of rplac with explicit
assignments to first and rest fields.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/wi1.boot: Likewise.
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 10a6eb74..95210266 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -484,8 +484,8 @@ optLET u == nil -- remove this initialization [init] -- otherwwise keep it. null inits => body - rplac(second u,inits) - rplac(third u,body) + u.rest.first := inits + u.rest.rest.first := body -- Avoid initialization forms that may not be floatable. not(and/[isFloatableVMForm init for [.,init] in inits]) => u -- Identity function. @@ -509,7 +509,7 @@ optLET u == not isSimpleVMForm test => continue := false clause.first := SUBLIS(substPairs,test) isSimpleVMForm stmt => - rplac(second clause,SUBLIS(substPairs,stmt)) + clause.rest.first := SUBLIS(substPairs,stmt) continue := false continue => body u |