diff options
author | dos-reis <gdr@axiomatics.org> | 2011-08-06 21:17:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-08-06 21:17:36 +0000 |
commit | 89674096006b286c3c20e0969c493e7f42b56365 (patch) | |
tree | fe8fe5485d0fed3e41943833f387f1dccd57148a /src/interp/interop.boot | |
parent | 2a44af7ae10c039f26cea6767df41d73a3d795a0 (diff) | |
download | open-axiom-89674096006b286c3c20e0969c493e7f42b56365.tar.gz |
cleanup
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 561edc19..5067a3f2 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -194,7 +194,7 @@ oldAxiomPreCategoryParents(catform,dom) == [eval quoteCatOp cat for [cat,:pred] in parents | eval pred]) quoteCatOp cat == - atom cat => MKQ cat + cat isnt [.,:.] => MKQ cat ['LIST, MKQ first cat,: rest cat] @@ -282,7 +282,7 @@ depthAssoc x == getCatAncestors x == [CAAR y for y in parentsOf opOf x] listOfEntries form == - atom form => form + form isnt [.,:.] => form form is [op,:l] => op is 'Join => "append"/[listOfEntries x for x in l] op is 'CATEGORY => listOfCategoryEntries rest l |