From 8e19b46ec87a301b16ce3255f03e77c6e8399f11 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Sat, 12 Apr 2008 22:10:52 +0200
Subject: whoops, fix search

* tekuti/page.scm (page-search): 
* tekuti/web.scm (choose-handler): fix search
---
 tekuti/page.scm | 2 --
 tekuti/web.scm  | 1 -
 2 files changed, 3 deletions(-)

diff --git a/tekuti/page.scm b/tekuti/page.scm
index bcb837b..8330bf9 100644
--- a/tekuti/page.scm
+++ b/tekuti/page.scm
@@ -295,8 +295,6 @@
                             `(tr (td ,(car pair)) (td ,(cdr pair))))
                           (rref request 'headers))))))
 
-(define page-search not-implemented)
-
 (define (page-not-found request index)
   (rcons* (pk 'not-found request)
           'status 404
diff --git a/tekuti/web.scm b/tekuti/web.scm
index 6b5eb89..6be887f 100644
--- a/tekuti/web.scm
+++ b/tekuti/web.scm
@@ -107,7 +107,6 @@
    ((GET tags) page-show-tags)
    ((GET tags tag!) page-show-tag)
    ((GET debug) page-debug)
-   ((POST search) page-search)
    (else page-not-found)))
 
 (define (handle-request request index)
-- 
cgit v1.2.3-54-g00ecf