Use for-each instead of map

Since we don't need the result of going through all the views, we can just discard it.
2012-09-16 14:23:55 +02:00 · 2012-09-16 14:23:55 +02:00 · c11e60df8b
commit c11e60df8b
parent 3d7138e45a
1 changed files with 5 additions and 4 deletions
--- 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)))))