From f6c0812a8b16458f096bea7a8dc4326906d2efa0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 9 Feb 2011 02:03:45 +0000 Subject: * interp/category.boot (mkCategory): Don't single out List instantiations in determining NewLocals. --- src/ChangeLog | 7 ++++++- src/interp/category.boot | 1 - 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 1ab79262..ebd52469 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,6 +1,11 @@ 2011-02-08 Gabriel Dos Reis - * interp/category.boot(categoryObject?): Rename from isCategory. + * interp/category.boot (mkCategory): Don't single out List + instantiations in determining NewLocals. + +2011-02-08 Gabriel Dos Reis + + * interp/category.boot(categoryObject?): Rename from isCategory. * interp/c-util.boot: Adjust use. * interp/functor.boot: Likewise. * interp/modemap.boot: Likewise. diff --git a/src/interp/category.boot b/src/interp/category.boot index cd4a070c..4d9fc3ae 100644 --- a/src/interp/category.boot +++ b/src/interp/category.boot @@ -122,7 +122,6 @@ mkCategory(domainOrPackage,sigList,attList,domList,PrincipalAncestor) == v is ["Union",:w] => "union"/[Prepare2 x for x in stripUnionTags w] v is ["Mapping",:w] => "union"/[Prepare2 x for x in w] - v is ["List",w] => Prepare2 w v is ["Record",.,:w] => "union"/[Prepare2 third x for x in w] [v] OldLocals:= nil -- cgit v1.2.3