Don't fail when generating first id

2012-09-26 19:52:42 +02:00 · 2012-09-26 19:52:42 +02:00 · 8463e3dec0
commit 8463e3dec0
parent 9c683792be
1 changed files with 5 additions and 3 deletions
--- a/undone/main.scm
+++ b/undone/main.scm
@ -128,9 +128,11 @@

 (define (next-id)
  "Look through all known todo items and get the next id."
-  (1+ (apply max (map (lambda (elm)
-                        (get-field-value id elm 0))
-                      todo-list))))
+  (if (> (length todo-list) 0)
+      (1+ (apply max (map (lambda (elm)
+                            (get-field-value id elm 0))
+                          todo-list)))
+      1))

 (define (add args)
  "Add item to the list."