diff options
Diffstat (limited to 'src/interp/category.boot')
| -rw-r--r-- | src/interp/category.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/category.boot b/src/interp/category.boot index c5289d51..cdacc6b4 100644 --- a/src/interp/category.boot +++ b/src/interp/category.boot @@ -95,7 +95,7 @@ mkCategory(domainOrPackage,sigList,attList,domList,principal) == string? v => nil v isnt [.,:.] => [v] v.op is 'Union => - "union"/[Prepare2 x for x in stripUnionTags v.args] + "union"/[Prepare2 x for x in stripTags v.args] v.op is 'Mapping => "union"/[Prepare2 x for x in v.args] v.op is 'Record => "union"/[Prepare2 third x for x in v.args] v.op is 'Enumeration => nil |