tools.test: Make the flag public. Finish porting tester changes to fuzzer.

[factor.git] / unmaintained / tangle / tangle.factor

diff --git a/unmaintained/tangle/tangle.factor b/unmaintained/tangle/tangle.factor
index 1f567a5f0d2c66f66221a44264b452bf49cc04e6..f20ed52b3c526fdeebd09f8b9577a805ee5984d3 100644 (file)
--- a/unmaintained/tangle/tangle.factor
+++ b/unmaintained/tangle/tangle.factor
@@ -24,7 +24,7 @@ C: <tangle> tangle
     [ [ db>> ] [ seq>> ] bi ] dip with-db ;
 
 : node-response ( id -- response )
-    load-node [ node-content "text/plain" <content> ] [ <404> ] if* ;
+    load-node [ node-content <text-content> ] [ <404> ] if* ;
 
 : display-node ( params -- response )
     [
@@ -40,7 +40,7 @@ C: <tangle> tangle
 : submit-node ( params -- response )
     [
         "node_content" swap at* [
-            create-node id>> number>string "text/plain" <content>
+            create-node id>> number>string <text-content>
         ] [
             drop <400>
         ] if
@@ -56,7 +56,7 @@ TUPLE: path-responder ;
 C: <path-responder> path-responder
 
 M: path-responder call-responder* ( path responder -- response )
-    drop path>file [ node-content "text/plain" <content> ] [ <404> ] if* ;
+    drop path>file [ node-content <text-content> ] [ <404> ] if* ;
 
 TUPLE: tangle-dispatcher < dispatcher tangle ;