Don't fail when generating first id

This commit is contained in:
Tom Willemsen 2012-09-26 19:52:42 +02:00
parent 9c683792be
commit 8463e3dec0

View file

@ -128,9 +128,11 @@
(define (next-id)
"Look through all known todo items and get the next id."
(if (> (length todo-list) 0)
(1+ (apply max (map (lambda (elm)
(get-field-value id elm 0))
todo-list))))
todo-list)))
1))
(define (add args)
"Add item to the list."