diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-11 17:23:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-11 17:23:30 +0000 |
| commit | 8a33c76f87483d4b01e666c0013e21b3cf3b7266 (patch) | |
| tree | cecc72add309346d7fd9d59cbc0cc6ae165e9cbd /src/interp | |
| parent | 51f27cd50780632ee9706e04b8a7b5e7d12c51cd (diff) | |
| download | open-axiom-8a33c76f87483d4b01e666c0013e21b3cf3b7266.tar.gz | |
Fix thinko
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-map.boot | 4 |
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]) |