From 18e0be59e0086d3b8bd11d15212187bdec704f61 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 2 Dec 2006 21:51:50 +0000
Subject: [PATCH] Remove obsolete code

---
 libs/furnace/tools/help.factor  | 11 -----------
 libs/furnace/tools/search.fhtml | 15 ---------------
 2 files changed, 26 deletions(-)
 delete mode 100644 libs/furnace/tools/search.fhtml

diff --git a/libs/furnace/tools/help.factor b/libs/furnace/tools/help.factor
index 1c0738b8ed..15771d115c 100644
--- a/libs/furnace/tools/help.factor
+++ b/libs/furnace/tools/help.factor
@@ -8,8 +8,6 @@ io ;
     serving-html
     dup article-title [
         [ help ] with-html-stream
-        <br/>
-        <a "search" =href a> "Search" write </a>
     ] html-document ;
 
 : string>topic ( string -- topic )
@@ -27,13 +25,4 @@ M: link browser-link-href
         [ show-help ] curry quot-link
     ] if ;
 
-TUPLE: search terms ;
-
-: search ( terms -- )
-    <search> "search" "Search" render-page ;
-
-\ search {
-    { "terms" }
-} define-action
-
 "help" "show-help" "libs/furnace/tools" web-app
diff --git a/libs/furnace/tools/search.fhtml b/libs/furnace/tools/search.fhtml
deleted file mode 100644
index 28718d3311..0000000000
--- a/libs/furnace/tools/search.fhtml
+++ /dev/null
@@ -1,15 +0,0 @@
-<% USING: help kernel sequences html namespaces io ; %>
-
-<form action="search" method="get">
-    <h1>Search help</h1>
-    <input type="field" name="terms" />
-    <%
-        "terms" get dup empty? [
-            drop
-        ] [
-            <b> "Results for " write dup write ":" write </b> <br/>
-            search-help.
-        ] if
-    %>
-    <input type="submit" />
-</form>