aliens/tekuti
1
0
Fork 0
Code Activity

whoops, fix search

Browse source 
* tekuti/page.scm (page-search): 
* tekuti/web.scm (choose-handler): fix search
This commit is contained in:
Andy Wingo 2008-04-12 22:10:52 +02:00
parent 88c136e775
commit 8e19b46ec8
2 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tekuti/page.scm
View file

@ -295,8 +295,6 @@
`(tr (td ,(car pair)) (td ,(cdr pair)))) `(tr (td ,(car pair)) (td ,(cdr pair))))
(rref request 'headers)))))) (rref request 'headers))))))
(define page-search not-implemented)
(define (page-not-found request index) (define (page-not-found request index)
(rcons* (pk 'not-found request) (rcons* (pk 'not-found request)
'status 404 'status 404

1
tekuti/web.scm
View file

@ -107,7 +107,6 @@
((GET tags) page-show-tags) ((GET tags) page-show-tags)
((GET tags tag!) page-show-tag) ((GET tags tag!) page-show-tag)
((GET debug) page-debug) ((GET debug) page-debug)
((POST search) page-search)
(else page-not-found))) (else page-not-found)))
(define (handle-request request index) (define (handle-request request index)