From b5d5e809ad7b245da90920f0186e98f2fdbf1e0a Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Fri, 26 Nov 2010 00:14:32 +0000 Subject: [PATCH 3/4] Fix tree-flat-length! so that it returns a value --- source/server-utils/answer.scm | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/source/server-utils/answer.scm b/source/server-utils/answer.scm index 4f1f152..60861fd 100644 --- a/source/server-utils/answer.scm +++ b/source/server-utils/answer.scm @@ -63,7 +63,8 @@ ((flat-length tree)) (else (set! (flat-length tree) (+ (tree-flat-length! (car tree)) - (tree-flat-length! (cdr tree))))))) + (tree-flat-length! (cdr tree)))) + (flat-length tree)))) ;; Return a new string made from flattening @var{tree}. ;; Set the @code{flat-length} (using @code{tree-flat-length!}) -- 1.7.2.3