diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-12 00:23:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-12 00:23:12 +0000 |
| commit | 7fe9066e79d46cd3a7673301bb41fceda683f503 (patch) | |
| tree | ae514cc367c895f62d8d5b105f810a27d0dd1775 | |
| parent | b5dac99efed153300270e86203655b0233543bf8 (diff) | |
| download | open-axiom-7fe9066e79d46cd3a7673301bb41fceda683f503.tar.gz | |
* algebra/tree.spad.pamphlet (node?$Tree): Fix thinko.
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/algebra/tree.spad.pamphlet | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 6bb8f63b..453830a7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2010-06-11 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/tree.spad.pamphlet (node?$Tree): Fix thinko. + +2010-06-11 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/buildom.boot (mkNewUnionFunList): Use %bind, not PROG2. (mkUnionFunList): Likewise. diff --git a/src/algebra/tree.spad.pamphlet b/src/algebra/tree.spad.pamphlet index 7b659368..a4249665 100644 --- a/src/algebra/tree.spad.pamphlet +++ b/src/algebra/tree.spad.pamphlet @@ -111,7 +111,7 @@ Tree(S: SetCategory): T==C where distance1(t2, t1) node?(t1, t2) == t1 = t2 => true - t case empty => false + t2 case empty => false "or"/[node?(t1, t) for t in children t2] leaf? t == t case empty => false |