diff options
| author |  Andy Wingo | 2008-04-12 22:10:52 +0200 |
|---|---|---|
| committer | Andy Wingo | 2008-04-12 22:10:52 +0200 |
| commit | 8e19b46ec87a301b16ce3255f03e77c6e8399f11 (patch) | |
| tree | a36930b02e173f5ddd5587d899411139c7a29e95 | |
| parent | 88c136e775857558d3bc64c7ed90ab6cea62308a (diff) | |
| download | tekuti-8e19b46ec87a301b16ce3255f03e77c6e8399f11.tar.gz tekuti-8e19b46ec87a301b16ce3255f03e77c6e8399f11.zip | |
whoops, fix search
* tekuti/page.scm (page-search):
* tekuti/web.scm (choose-handler): fix search
| -rw-r--r-- | tekuti/page.scm | 2 | ||||
| -rw-r--r-- | tekuti/web.scm | 1 |
2 files changed, 0 insertions, 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) |