aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/i-map.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot
index 5fa7d4df..56eae07a 100644
--- a/src/interp/i-map.boot
+++ b/src/interp/i-map.boot
@@ -1025,8 +1025,8 @@ findLocalVars1(op,form) ==
form is [y,:argl] =>
y is "Record" or (y is "Union" and argl is [[":",.,.],:.]) =>
-- don't pick field tags, their are not variables.
- for [tag,type] in argl repeat
- findLocalsInLoop(op,type)
+ for [.,.,t] in argl repeat
+ findLocalVars1(op,t)
for x in argl repeat findLocalVars1(op,x)
keyedSystemError("S2IM0020",[op])