From 089c17f401c12035f242bcd080acc79aabfdf23b Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Wed, 18 May 2005 22:37:42 +0000
Subject: [PATCH] Get eval-responder working again and fix up for the rename of
 'cat' to 'append'.

---
 contrib/cont-responder/cont-examples.factor  | 6 +++---
 contrib/cont-responder/eval-responder.factor | 4 +++-
 contrib/cont-responder/todo.factor           | 2 +-
 3 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/contrib/cont-responder/cont-examples.factor b/contrib/cont-responder/cont-examples.factor
index 76d0a721e4..5ca77a1e76 100644
--- a/contrib/cont-responder/cont-examples.factor
+++ b/contrib/cont-responder/cont-examples.factor
@@ -62,7 +62,7 @@ USE: sequences
 : test-cont-responder ( - )
   #! Test the cont-responder responder by displaying a few pages in a row.
   "Page one" display-page 
-  "Hello " display-get-name-page cat2 display-page
+  "Hello " display-get-name-page append display-page
   "Page three" display-page ;
 
 : test-cont-responder2 ( - )
@@ -92,7 +92,7 @@ USE: sequences
   [ 
     #! And we don't need the 'url' argument
     drop         
-    "Counter: " over unparse cat2 [ 
+    "Counter: " over unparse append [ 
       dup <h2> unparse write </h2>
       "++" over unit [ f ] swap append [ 1 + counter-example ] append quot-href
       "--" over unit [ f ] swap append [ 1 - counter-example ] append quot-href
@@ -108,7 +108,7 @@ USE: sequences
   [ 
     #! We don't need the 'url' argument
     drop   
-    "Counter: " "counter" get unparse cat2 [ 
+    "Counter: " "counter" get unparse append [ 
       <h2> "counter" get unparse write </h2>
       "++" [ "counter" get 1 + "counter" set ] quot-href
       "--" [ "counter" get 1 - "counter" set ] quot-href
diff --git a/contrib/cont-responder/eval-responder.factor b/contrib/cont-responder/eval-responder.factor
index d7ad3827ea..4442a23699 100644
--- a/contrib/cont-responder/eval-responder.factor
+++ b/contrib/cont-responder/eval-responder.factor
@@ -73,7 +73,9 @@ USE: sequences
 : escape-quotes ( string -- string )
   #! Replace occurrences of single quotes with
   #! backslash quote.
-  [ dup [ [[ CHAR: ' "\\'" ]] [[ CHAR: " "\\\"" ]] ] assoc dup rot ? ] map ;
+  [
+    [ dup [ [[ CHAR: ' "\\'" ]] [[ CHAR: " "\\\"" ]] ] assoc [ , ] [ , ] ?ifte ] each
+  ] make-string ;
  
 : make-eval-javascript ( string -- string )
   #! Give a string return some javascript that when
diff --git a/contrib/cont-responder/todo.factor b/contrib/cont-responder/todo.factor
index 797bd46933..8c8a77a97d 100644
--- a/contrib/cont-responder/todo.factor
+++ b/contrib/cont-responder/todo.factor
@@ -116,7 +116,7 @@ USE: http
 : user-exists? ( db-path name password -- <todo> )
   #! Returns a <todo> if a user with the given name exists
   #! otherwise returns false.
-  -rot ".todo" cat3 dup exists? [ 
+  -rot ".todo" append3 dup exists? [ 
     load-todo password-matches?
   ] [
     2drop f