From 8a701e6e16548bdd3b0ca032f95750d7d450168f Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Tue, 16 Aug 2005 23:10:13 +0000
Subject: [PATCH] Fix Todo example so it works with removal of lexi>.

---
 contrib/cont-responder/todo.factor | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/contrib/cont-responder/todo.factor b/contrib/cont-responder/todo.factor
index ad3a0473a0..a51f420cab 100644
--- a/contrib/cont-responder/todo.factor
+++ b/contrib/cont-responder/todo.factor
@@ -148,9 +148,10 @@ USE: unparser
   #! return the description for the todo list item.
   "description" swap hash ;
 
-: priority-comparator ( item1 item2 -- bool )
-  #! Return true if item1 is a higher priority than item2
-  >r item-priority r> item-priority lexi> ;
+: priority-comparator ( item1 item2 -- number )
+  #! Return 0 if item equals item2, -1 if item1 < item2 and
+  #! 1 if item1 > item2.
+  >r item-priority r> item-priority lexi ;
   
 : todo-items ( <todo> -- alist )
   #! Return a list of items for the given todo list.