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)