suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix reference to output-file

Browse Source 
svn: r6446
This commit is contained in:
Jay McCarthy 2007-06-01 16:51:26 +00:00
parent 57a8f869a0
commit bd8f47350f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/web-server/dispatchers/dispatch-files.ss
View File

@ -56,7 +56,8 @@
(define full-name (build-path path dir-default)) (define full-name (build-path path dir-default))
(when (and (file-exists? full-name) (when (and (file-exists? full-name)
(looks-like-directory? (url-path->string (url-path uri)))) (looks-like-directory? (url-path->string (url-path uri))))
(esc (output-file conn full-name method (get-mime-type full-name))))) (esc (output-file conn full-name method (get-mime-type full-name)
0 +inf.0))))
indices) indices)
(next-dispatcher))] (next-dispatcher))]
[else [else