From cb918db171654ef0fc77a2271d8690a7b22b29d1 Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Mon, 26 Jul 2004 00:47:15 +0000
Subject: [PATCH] Add style to factor output allowing "see", etc to be
 hyperlinked.

---
 contrib/cont-responder/eval-responder.factor | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/contrib/cont-responder/eval-responder.factor b/contrib/cont-responder/eval-responder.factor
index 542636d443..78b3976ab0 100644
--- a/contrib/cont-responder/eval-responder.factor
+++ b/contrib/cont-responder/eval-responder.factor
@@ -25,6 +25,7 @@
 !
 IN: eval-responder
 USE: cont-html
+USE: html
 USE: cont-responder
 USE: cont-utils
 USE: stack
@@ -58,7 +59,7 @@ USE: errors
   <table border= "1" table> [
     <tr> [ 
       <td> [ "Last Output" write ] </td>
-      <td> [ write ] </td>
+      <td> [ <pre> [ write ] </pre> ] </td>
     ] </tr>
   ] </table> ;           
   
@@ -89,9 +90,12 @@ USE: errors
   #! Evaluate expression using 'list' as the current callstack.
   #! All output should go to a string which is returned on the
   #! callstack along with the resulting datastack as a list.
-  1024 <string-output-stream> dup >r [
-    do-eval 
-  ] with-stream r> stream>str ;
+  <namespace> [ 
+    "inspect" "responder" set
+    1024 <string-output-stream> dup >r <html-stream> [
+      do-eval 
+    ] with-stream r> stream>str 
+  ] bind ;
 
 : run-eval-requester ( list string -- )
   #! Enter a loop request an expression to