From c11e60df8b9390b63197b4d82e8f965fb68a8a4f Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 16 Sep 2012 14:23:55 +0200
Subject: Use for-each instead of map

Since we don't need the result of going through all the views, we can
just discard it.
---
 undone/main.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/undone/main.scm b/undone/main.scm
index f627c31..e34450c 100644
--- a/undone/main.scm
+++ b/undone/main.scm
@@ -204,7 +204,8 @@
         ((views)
          (display "Defined views:")
          (newline)
-         (map (lambda (view)
-                (format #t "~a~20t~a~%"
-                        (car view) (procedure-documentation (cdr view))))
-              view-list)))))
+         (for-each
+          (lambda (view)
+            (format #t "~a~20t~a~%"
+                    (car view) (procedure-documentation (cdr view))))
+          view-list)))))
-- 
cgit v1.2.3-54-g00ecf