diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
| commit | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (patch) | |
| tree | 8efa5738e30f54559a22950f8b4c3dc33ab4c284 /src/interp/interop.boot | |
| parent | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (diff) | |
| download | open-axiom-d1ae1fd7646c2b81c3d23752f6956c7db888e916.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/interop.boot')
| -rw-r--r-- | src/interp/interop.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 4e94b750..e8da2cd9 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -111,7 +111,7 @@ StringToCompStr(str) == strconc(str, STRING (CODE_-CHAR 0)) CompStrToString(str) == - SUBSTRING(str, 0, (LENGTH str - 1)) + SUBSTRING(str, 0, (# str - 1)) -- local garbage ends runOldAxiomFunctor(:allArgs) == @@ -208,7 +208,7 @@ oldAxiomCategoryLookupExport(catenv, self, op, sig, box, env) == fun := basicLookup(op, sig, pack, self) => [fun] nil -oldAxiomCategoryParentCount([.,.,.,parents,.], env) == LENGTH parents +oldAxiomCategoryParentCount([.,.,.,parents,.], env) == # parents oldAxiomCategoryNthParent([.,.,.,parvec,dom], n, env) == catform := parvec.(n-1) VECTORP KAR catform => catform |