diff options
author | Tom Willemsen | 2012-09-16 14:23:55 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-09-16 14:23:55 +0200 |
commit | c11e60df8b9390b63197b4d82e8f965fb68a8a4f (patch) | |
tree | 72d5aefb19512af46e53b3a23c0bb39c739e26f8 | |
parent | 3d7138e45af5a288995442dff249e8eaa00803d5 (diff) | |
download | undone-c11e60df8b9390b63197b4d82e8f965fb68a8a4f.tar.gz undone-c11e60df8b9390b63197b4d82e8f965fb68a8a4f.zip |
Since we don't need the result of going through all the views, we can
just discard it.
-rw-r--r-- | undone/main.scm | 9 |
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))))) |