From 8f3ba5b97ec00d86ea42fed1edaa7ad3240e35eb Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Mon, 26 Jul 2004 04:00:56 +0000
Subject: [PATCH] Use str-lexi> for sorting priorities. This allows
 alphanumeric characters as a priority and prevents errors in that case.

---
 contrib/cont-responder/todo.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/cont-responder/todo.factor b/contrib/cont-responder/todo.factor
index ea5ee53eba..22d2f54435 100644
--- a/contrib/cont-responder/todo.factor
+++ b/contrib/cont-responder/todo.factor
@@ -130,7 +130,7 @@ USE: kernel
 
 : priority-comparator ( item1 item2 -- bool )
   #! Return true if item1 is a higher priority than item2
-  >r item-priority r> item-priority > ;
+  >r item-priority r> item-priority str-lexi> ;
   
 : todo-items ( <todo> -- )
   #! Return a list of items for the given todo list.