aboutsummaryrefslogtreecommitdiff
path: root/src/interp/compiler.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r--src/interp/compiler.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 43433524..9d79c3b3 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -1224,7 +1224,7 @@ canReturn(expr,level,exitCount,ValueFlag) == --SPAD: exit and friends
and/[canReturn(u,level,exitCount,ValueFlag) for u in expr]
op = "LET" or op = "LET*" =>
or/[canReturn(init,level,exitCount,false) for [.,init] in second expr]
- or canReturn(third expr,exitCount,ValueFlag)
+ or canReturn(third expr,level,exitCount,ValueFlag)
systemErrorHere ['"canReturn",expr] --for the time being
++ We are compiling a conditional expression, type check and generate