]> gitweb.factorcode.org Git - factor.git/commitdiff
fix eval-responder for recent factor changes
authorChris Double <chris.double@double.co.nz>
Sat, 27 Aug 2005 03:46:46 +0000 (03:46 +0000)
committerChris Double <chris.double@double.co.nz>
Sat, 27 Aug 2005 03:46:46 +0000 (03:46 +0000)
contrib/cont-responder/eval-responder.factor

index 3d74ad2ad945b86096095dada04d9cf470989ffe..23eabb84c187366326c38e7ef9945411c5b02db4 100644 (file)
@@ -79,7 +79,7 @@ USE: sequences
 : make-eval-javascript ( string -- string )
   #! Give a string return some javascript that when
   #! executed will set the eval textarea to that string.
-  [ "document.forms.main.eval.value=\"" % escape-quotes % "\"" % ] make-string ;
+  [ "document.forms.main.eval.value=\"" % escape-quotes % "\"" % ] "" make ;
 : write-eval-link ( string -- )
   #! Given text to evaluate, create an A HREF link which when
   #! clicked sets the eval textarea to that value.
@@ -115,7 +115,7 @@ USE: sequences
   #! Return an html fragment dispaying the source
   #! of the given word.
   dup dup
-  <namespace> [
+  {{ }} clone [
     "browser" "responder" set
     <table border= "1" table> 
       <tr> <th colspan= "2" th> "Source" write </th> </tr>