From 01b0cae9a58ea8f1a44d9cc6229532785fa26df6 Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Sat, 30 Apr 2005 03:16:33 +0000
Subject: [PATCH] Fix bitrot in cont-responder

---
 contrib/cont-responder/eval-responder.factor    | 17 ++++++++++++++---
 .../live-updater-responder.factor               |  2 +-
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/contrib/cont-responder/eval-responder.factor b/contrib/cont-responder/eval-responder.factor
index 1e7c268097..3960eba0a8 100644
--- a/contrib/cont-responder/eval-responder.factor
+++ b/contrib/cont-responder/eval-responder.factor
@@ -105,12 +105,17 @@ USE: sequences
     [ <tr> <td> write-eval-link </td> </tr> ] each
   </table> ;
 
+: usages. ( word -- )
+  #! Write to output the words that use the given word, one
+  #! per line.
+  usages [ . ] each ;
+
 : html-for-word-source ( word-string -- )
   #! Return an html fragment dispaying the source
   #! of the given word.
   dup dup
   <namespace> [
-    "responder" "browser" put
+    "browser" "responder" set
     <table border= "1" table> 
       <tr> <th colspan= "2" th> "Source" write </th> </tr>
       <tr> <td colspan= "2" td> [ [ parse ] [ [ "No such word" write ] [ car see ] ifte ] catch ] with-simple-html-output </td> </tr>
@@ -172,9 +177,9 @@ USE: sequences
   #! Call the quotation using 'list' as the datastack
   #! return the result datastack as a list.
   datastack >r    
-  swap list>vector tuck vector-push 
+  swap >vector tuck push 
   set-datastack call datastack >list
-  r> >pop> >pop> tuck vector-push set-datastack ;
+  r> >pop> >pop> tuck push set-datastack ;
 
 : do-eval ( list string -- list )
   #! Evaluate the expression in 'string' using 'list' as
@@ -199,6 +204,12 @@ USE: sequences
   #! This combinator will not compile.
   dup slip forever ;
 
+: cons@ ( value name -- )
+  #! Get the value of the variable named by 'name'
+  #! from the current namespace and cons 'value' to its
+  #! current value.
+  dup get rot swons swap set ;
+
 : run-eval-requester ( evaluator -- )
   #! Enter a loop request an expression to
   #! evaluate, and displaying the results. 
diff --git a/contrib/cont-responder/live-updater-responder.factor b/contrib/cont-responder/live-updater-responder.factor
index aad1ef7e19..04e7e4a839 100644
--- a/contrib/cont-responder/live-updater-responder.factor
+++ b/contrib/cont-responder/live-updater-responder.factor
@@ -38,7 +38,7 @@ USE: prettyprint
   #! Given a string that is a factor word, show the
   #! aporpos of that word.
   <namespace> [
-    "responder" "browser" put
+    "browser" "responder" set
     <pre> 
         stdio get <html-stream> [   
           apropos.