diff options
Diffstat (limited to 'src/interp/category.boot')
| -rw-r--r-- | src/interp/category.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/category.boot b/src/interp/category.boot index 15fe1efe..dbdf9919 100644 --- a/src/interp/category.boot +++ b/src/interp/category.boot @@ -370,8 +370,10 @@ FindFundAncs l == CatEval: %Thing -> %Shell CatEval x == REFVECP x => x - $InteractiveMode => first compMakeCategoryObject(x,$CategoryFrame) - first compMakeCategoryObject(x,$e) + e := + $InteractiveMode => $CategoryFrame + $e + (compMakeCategoryObject(x,e)).expr --RemovePrinAncs(l,leaves) == -- l=nil => nil |