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 (define-view test
"Just a test view, see everything in todo-list." "Just a test view, see everything in todo-list."
(write todo-list)) (format #t "~y" todo-list))
(define (view args) (define (view args)
"Show a list of todo items." "Show a list of todo items."