steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix Todo example so it works with removal of lexi>.

cvs
Chris Double 2005-08-16 23:10:13 +00:00
parent 7426167a5a
commit 8a701e6e16
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/cont-responder/todo.factor
View File

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