diff options
| -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 |