HTTPD tools moved to contrib/furnace and updated to use the new framework

[factor.git] / contrib / furnace / responder.factor

diff --git a/contrib/furnace/responder.factor b/contrib/furnace/responder.factor
index 7599c8873bd044e26639ca9f7abf862352750f57..b33d30429d24988aec237ca7bfe4725a02bfe387 100644 (file)
--- a/contrib/furnace/responder.factor
+++ b/contrib/furnace/responder.factor
@@ -36,7 +36,9 @@ PREDICATE: word action "action" word-prop ;
 
 : action-link ( query action -- url )
     [
-        "/responder/" % "responder" get % "/" %
+        "/responder/" %
+        dup word-vocabulary "furnace:" ?head drop %
+        "/" %
         word-name %
     ] "" make swap build-url ;