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

Don't fail when generating first id

Browse source
This commit is contained in:
Tom Willemsen 2012-09-26 19:52:42 +02:00
parent 9c683792be
commit 8463e3dec0
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
undone/main.scm
View file

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