From 8a33c76f87483d4b01e666c0013e21b3cf3b7266 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 11 Aug 2008 17:23:30 +0000
Subject: Fix thinko

---
 src/interp/i-map.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp')

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])
 
-- 
cgit v1.2.3