diff options
| -rw-r--r-- | src/gemma.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gemma.lisp b/src/gemma.lisp index a96b722a2299..0aa873db459e 100644 --- a/src/gemma.lisp +++ b/src/gemma.lisp @@ -62,7 +62,7 @@ maximum interval." (defun sort-tasks (tasks) "Sorts TASKS in descending order by number of days remaining." (sort (copy-list tasks) - (lambda (t1 t2) (> (days-remaining t1) + (lambda (t1 t2) (< (days-remaining t1) (days-remaining t2))))) (defun complete-task (name &optional at) |