ryuslash/undone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use for-each instead of map

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

9
undone/main.scm
View file

@ -204,7 +204,8 @@
((views) ((views)
(display "Defined views:") (display "Defined views:")
(newline) (newline)
(map (lambda (view) (for-each
(format #t "~a~20t~a~%" (lambda (view)
(car view) (procedure-documentation (cdr view)))) (format #t "~a~20t~a~%"
view-list))))) (car view) (procedure-documentation (cdr view))))
view-list)))))