From 5a825ad439c71b43f93824a37daa743535db2641 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Sat, 27 Sep 2003 10:08:26 +0000 Subject: [PATCH] Two fixes to Guile tutorial. --- THANKS | 1 + doc/tutorial/ChangeLog | 7 +++++++ doc/tutorial/guile-tut.texi | 6 +++--- 3 files changed, 11 insertions(+), 3 deletions(-) diff --git a/THANKS b/THANKS index 49342212b..0bbb3f42f 100644 --- a/THANKS +++ b/THANKS @@ -40,6 +40,7 @@ For fixes or providing information which led to a fix: Han-Wen Nienhuys Jan Nieuwenhuizen Pieter Pareit + Jack Pavlovsky Arno Peters Ron Peterson David Pirotte diff --git a/doc/tutorial/ChangeLog b/doc/tutorial/ChangeLog index 86a9dc6a2..7dd52f5d7 100644 --- a/doc/tutorial/ChangeLog +++ b/doc/tutorial/ChangeLog @@ -1,3 +1,10 @@ +2003-09-27 Neil Jerram + + * guile-tut.texi (Using Guile to program in Scheme): Fix result of + `(reverse ls)', and change `squaring function' example to use `(* + n n)' instead of `(expt n n)'. Thanks to Jack Pavlovsky for + pointing these out. + 2003-05-27 Dirk Herrmann * guile-tut.texi: Fix example, where a vector constant is used diff --git a/doc/tutorial/guile-tut.texi b/doc/tutorial/guile-tut.texi index 9379f6ee8..d38638b10 100644 --- a/doc/tutorial/guile-tut.texi +++ b/doc/tutorial/guile-tut.texi @@ -523,7 +523,7 @@ guile> @kbd{(caddr ls)} guile> @kbd{(append ls (list 8 9 10))} @result{} (1 2 3 4 5 6 7 8 9 10) guile> @kbd{(reverse ls)} - @result{} (10 9 8 7 6 5 4 3 2 1) + @result{} (7 6 5 4 3 2 1) ;; @r{ask if 12 is in the list --- it obviously is not} guile> @kbd{(memq 12 ls)} @result{} #f @@ -552,8 +552,8 @@ guile> @kbd{(map sin ls2)} @result{} (0.909297426825682 0.141120008059867 -0.756802495307928) ;; @r{make a list in which the squaring function has been} ;; @r{applied to all elements of @code{ls}} -guile> @kbd{(map (lambda (n) (expt n n)) ls)} - @result{} (1 4 27 256 3125 46656 823543) +guile> @kbd{(map (lambda (n) (* n n)) ls)} + @result{} (1 4 9 16 25 36 49) @end smalllisp @smalllisp