Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing index file handling to take the index relative to the url, not the search path.

Browse source
This commit is contained in:
Alex Shinn 2015-02-11 19:05:35 +09:00
parent 6319d11291
commit ed458469a7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/net/http-server.scm
View file

@ -94,7 +94,8 @@
=> (lambda (index-file) => (lambda (index-file)
;; Generate and restart a new request with explicit index file. ;; Generate and restart a new request with explicit index file.
(let* ((uri (request-uri request)) (let* ((uri (request-uri request))
(path2 (make-path (uri-path uri) index-file))) (path2 (make-path (uri-path uri)
(path-strip-directory index-file))))
(restart (restart
(request-with-uri request (uri-with-path uri path2)))))) (request-with-uri request (uri-with-path uri path2))))))
(else (else