diff options
Diffstat (limited to 'src/interp/cattable.boot')
-rw-r--r-- | src/interp/cattable.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index 5f546ebe..ca0272e1 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -33,7 +33,7 @@ import simpbool -import g_-util +import c_-util namespace BOOT module cattable where hasCat: (%Instantiation,%Instantiation) -> %Code @@ -280,7 +280,7 @@ isFormalArgumentList argl == mkCategoryExtensionAlist cform == not cons? cform => nil cop := first cform - symbolMember?(cop, $CategoryNames) => mkCategoryExtensionAlistBasic cform + builtinCategoryName? cop => mkCategoryExtensionAlistBasic cform catlist := formalSubstitute(cform, first getConstructorExports(cform, true)) extendsList:= nil for [cat,:pred] in catlist repeat |