From 7fe9066e79d46cd3a7673301bb41fceda683f503 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 12 Jun 2010 00:23:12 +0000 Subject: * algebra/tree.spad.pamphlet (node?$Tree): Fix thinko. --- src/ChangeLog | 4 ++++ src/algebra/tree.spad.pamphlet | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 6bb8f63b..453830a7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2010-06-11 Gabriel Dos Reis + + * algebra/tree.spad.pamphlet (node?$Tree): Fix thinko. + 2010-06-11 Gabriel Dos Reis * interp/buildom.boot (mkNewUnionFunList): Use %bind, not PROG2. 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 -- cgit v1.2.3