aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 9a51fc2a..9325efb1 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1506,7 +1506,7 @@ mutateToBackendCode x ==
$LocalVars := [y,:$LocalVars]
newBindings := [y,:newBindings]
res := mutateToBackendCode CDDR x
- $LocalVars := REMOVE_-IF(function LAMBDA(y(), y in newBindings),
+ $LocalVars := REMOVE_-IF(function (y +-> y in newBindings),
$LocalVars)
[u,second x,:res]
u = "DECLARE" => nil -- there is nothing to do convert there