diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index c2264f37..495a9cc9 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1953,7 +1953,7 @@ augModemapsFromDomain(name,functorForm,e) == listMember?(name,getDomainsInScope e) => e if super := superType functorForm then e := addNewDomain(super,e) - if name is ["Union",:dl] then for d in stripUnionTags dl + if name is ["Union",:dl] then for d in stripTags dl repeat e:= addDomain(d,e) augModemapsFromDomain1(name,functorForm,e) |