]> gitweb.factorcode.org Git - factor.git/commitdiff
Fix eval responder to work with 0.77 changes.
authorChris Double <chris.double@double.co.nz>
Wed, 24 Aug 2005 04:52:52 +0000 (04:52 +0000)
committerChris Double <chris.double@double.co.nz>
Wed, 24 Aug 2005 04:52:52 +0000 (04:52 +0000)
contrib/cont-responder/eval-responder.factor

index eb3247e29e269701f6f06d71bc35d93597fe8622..0081692057528357873f6b46c54e99b10254486c 100644 (file)
@@ -73,13 +73,13 @@ USE: sequences
   #! Replace occurrences of single quotes with
   #! backslash quote.
   [
-    [ dup [ [[ CHAR: ' "\\'" ]] [[ CHAR: " "\\\"" ]] ] assoc [ , ] [ , ] ?ifte ] each
+    [ dup [ [[ CHAR: ' "\\'" ]] [[ CHAR: " "\\\"" ]] ] assoc [ % ] [ % ] ?ifte ] each
   ] make-string ;
  
 : 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-string ;
 : write-eval-link ( string -- )
   #! Given text to evaluate, create an A HREF link which when
   #! clicked sets the eval textarea to that value.