diff options
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 |