From 9b13bbb89cbd55f653a0f2b8c70a19de7c0be3db Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 14 Dec 2009 20:00:12 +0000 Subject: [PATCH] fix typo svn: r17294 --- collects/typed-scheme/ts-guide.scrbl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/ts-guide.scrbl b/collects/typed-scheme/ts-guide.scrbl index d3af990ca0..75c0b713bb 100644 --- a/collects/typed-scheme/ts-guide.scrbl +++ b/collects/typed-scheme/ts-guide.scrbl @@ -155,8 +155,8 @@ typed-scheme (: tree-height (Tree -> Number)) (define (tree-height t) (cond [(leaf? t) 1] - [else (max (tree-height (node-left t)) - (tree-height (node-right t)))])) + [else (max (+ 1 (tree-height (node-left t))) + (+ 1 (tree-height (node-right t))))])) (: tree-sum (Tree -> Number)) (define (tree-sum t)