diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-02 14:56:25 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-02 14:56:25 +0000 |
commit | 86deb7d7804d04ee01aa0d8b3a27d8293c0a839f (patch) | |
tree | 79c1b177d28afd0fe11fdbd6a4d4ff29176a2cef /src/algebra/tree.spad.pamphlet | |
parent | 91e98f5f1cf726fc190f62db409ebeeadedbcd7b (diff) | |
download | open-axiom-86deb7d7804d04ee01aa0d8b3a27d8293c0a839f.tar.gz |
* interp/compiler.boot (isSubset): Expand domain representation form.
* algebra/term.spad.pamphlet (retractIfCan$Arity): Tidy.
* algebra/tree.spad.pamphlet (cyclicCopy2$Tree): Remove
unnecessary "return".
Diffstat (limited to 'src/algebra/tree.spad.pamphlet')
-rw-r--r-- | src/algebra/tree.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/tree.spad.pamphlet b/src/algebra/tree.spad.pamphlet index 09d7089b..dc2b9e48 100644 --- a/src/algebra/tree.spad.pamphlet +++ b/src/algebra/tree.spad.pamphlet @@ -230,7 +230,7 @@ Tree(S: SetCategory): T==C where cyclicCopy(t) == cyclicCopy2(t, cyclicEntries t) cyclicCopy2(t, cycles) == - eqMember?(t, cycles) => return copyCycle2(t, cycles) + eqMember?(t, cycles) => copyCycle2(t, cycles) tree(value t, [cyclicCopy2(c, cycles) for c in children t]) copyCycle2(cycle, cycleList) == |