aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-coerce.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-coerce.boot')
-rw-r--r--src/interp/i-coerce.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot
index bb331ea3..e0c896e4 100644
--- a/src/interp/i-coerce.boot
+++ b/src/interp/i-coerce.boot
@@ -864,7 +864,7 @@ coerceInt1(triple,t2) ==
[.,vars,:body] := unwrap val
vars :=
atom vars => [vars]
- vars is ['Tuple,:.] => rest vars
+ vars is ["tuple",:.] => rest vars
vars
#margl ^= #vars => 'continue
tree := mkAtree ['ADEF,vars,[target,:margl],[NIL for x in rest t2],:body]