Use for-each instead of map

Since we don't need the result of going through all the views, we can
just discard it.
This commit is contained in:
Tom Willemsen 2012-09-16 14:23:55 +02:00
parent 3d7138e45a
commit c11e60df8b
1 changed files with 5 additions and 4 deletions

View File

@ -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)))))