From b1945f04ae124573e2ea6ea58cae4dfc9552db29 Mon Sep 17 00:00:00 2001 From: Chris Double Date: Mon, 4 Apr 2005 22:31:31 +0000 Subject: [PATCH] get cont-responder examples working with new sequences code. --- contrib/cont-responder/eval-responder.factor | 3 ++- contrib/cont-responder/todo.factor | 8 ++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/contrib/cont-responder/eval-responder.factor b/contrib/cont-responder/eval-responder.factor index 37f039f0cd..1e7c268097 100644 --- a/contrib/cont-responder/eval-responder.factor +++ b/contrib/cont-responder/eval-responder.factor @@ -41,6 +41,7 @@ USE: unparser USE: words USE: vectors USE: logging +USE: sequences : ( stack msg history -- ) #! Create an 'evaluator' object that holds @@ -172,7 +173,7 @@ USE: logging #! return the result datastack as a list. datastack >r swap list>vector tuck vector-push - set-datastack call datastack vector>list + set-datastack call datastack >list r> >pop> >pop> tuck vector-push set-datastack ; : do-eval ( list string -- list ) diff --git a/contrib/cont-responder/todo.factor b/contrib/cont-responder/todo.factor index 5e6aa0b9c0..83b536180c 100644 --- a/contrib/cont-responder/todo.factor +++ b/contrib/cont-responder/todo.factor @@ -21,9 +21,9 @@ ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ! -! Routines for managing a simple "To Do list". A todo list has a 'user', 'password' -! and list of items. Each item has a priority, description, and indication if it is -! complete. +! Routines for managing a simple "To Do list". A todo list has a 'user', +! 'password' and list of items. Each item has a priority, description, +! and indication if it is complete. IN: todo USE: parser USE: strings @@ -34,10 +34,10 @@ USE: math USE: stdio USE: kernel USE: prettyprint -USE: unparser USE: url-encoding USE: files USE: hashtables +USE: sequences : ( user password -- ) #! Create an empty todo list