diff options
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index ad681ddc..f835a531 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -798,10 +798,12 @@ isSubset(x,y,e) == y = $Type => true -- When using the old style definition, the current domain -- is considered a subset of its representation domain - x = "$" and y = "Rep" => $useRepresentationHack + x is '$ and y is 'Rep => $useRepresentationHack -- Expand domain representation form - x = "Rep" and not $useRepresentationHack => + x is 'Rep and not $useRepresentationHack => isSubset(getRepresentation e,y,e) + -- x is '$ and get(x,'%domain,e) = y => true + y is '$ and get(y,'%domain,e) = x => true -- Or, if x has the Subsets property set by SubsetCategory. pred := LASSOC(opOf x,get(opOf y,"Subsets",e)) => pred -- Or, they are related by subdomain chain. |