Prettier test-view output

This commit is contained in:
Tom Willemsen 2012-08-14 21:40:35 +02:00
parent 252e766648
commit e8e7d1fcee

View file

@ -83,7 +83,7 @@
(define-view test
"Just a test view, see everything in todo-list."
(write todo-list))
(format #t "~y" todo-list))
(define (view args)
"Show a list of todo items."