Use for-each instead of mapHEADmaster

Since we don't need the result of going through all the views, we can
just discard it.

1 files 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)))))