diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-01-12 09:57:47 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-01-12 09:57:47 +0000 |
| commit | 8d490e2e4c1babdbf34c28e3c334ba3c8cf16c27 (patch) | |
| tree | 3794bb8e3c989025175902c249e5b3833e04c90c /src/interp/category.boot | |
| parent | 7f4d5ba0d11c5c7f5bc106655ffb07f37ed453a0 (diff) | |
| download | open-axiom-8d490e2e4c1babdbf34c28e3c334ba3c8cf16c27.tar.gz | |
* interp/category.boot: Miscellaneous cleanup.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/info.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
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 |