diff options
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r-- | src/interp/g-util.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index c1e8e281..6b76c32e 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -119,9 +119,9 @@ superType: %Mode -> %Maybe %Mode superType dom == dom = "$" => superType $functorForm dom isnt [ctor,:args] => nil - [super,.] := - (db := constructorDB ctor) and dbBeingDefined? db => - dbSuperDomain db or return nil + [super,.] := + db := constructorDB ctor or return nil + dbBeingDefined? db => dbSuperDomain db or return nil getSuperDomainFromDB ctor or return nil sublisFormal(args,super,$AtVariables) |