diff options
author | Tom Willemsen | 2012-09-26 19:52:42 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-09-26 19:52:42 +0200 |
commit | 8463e3dec0299c49acf3ef654908ef64bc8cd6de (patch) | |
tree | 2ddb0bdd7103cdbc65c12896d415fa133163b68e | |
parent | 9c683792bef06e73fa34e8d1bea4a64f176fcf0e (diff) | |
download | undone-8463e3dec0299c49acf3ef654908ef64bc8cd6de.tar.gz undone-8463e3dec0299c49acf3ef654908ef64bc8cd6de.zip |
Don't fail when generating first id
-rw-r--r-- | undone/main.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/undone/main.scm b/undone/main.scm index 322a73e..b9ae986 100644 --- 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." |