diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index c98f668c..edf903b6 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1291,7 +1291,7 @@ backendCompileNEWNAM x == u := MAKE_-CLOSEDFN_-NAME() PUSH([u,second x], $CLOSEDFNS) x.first := "FUNCTION" - RPLACA(rest x,u) + x.rest.first := u backendCompileNEWNAM first x backendCompileNEWNAM rest x @@ -1571,7 +1571,7 @@ transformToBackendCode x == fluids := S_+(backendFluidize second x, $SpecialVars) lastdecl := lastDeclarationNode rest x if lastdecl = nil then - RPLACD(rest x, body) + x.rest.rest := body else null fluids => lastdecl.rest := body |