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

(chibi net server-util): file-mime-type: fix load-mime-types call

Browse source 
Use find instead of any so load-mime-types will get the filename
instead of #t when a mime.types file is found.  Otherwise an error
occurs in load-mime-types.
This commit is contained in:
Kris Katterjohn 2019-10-01 20:00:36 -05:00
parent 3749d29883
commit 9bbf48d084
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/net/server-util.scm
View file

@ -75,9 +75,9 @@
(if (not ext-types) (if (not ext-types)
(let ((ht (make-hash-table eq?))) (let ((ht (make-hash-table eq?)))
(cond (cond
((any file-exists? '("/etc/mime.types" ((find file-exists? '("/etc/mime.types"
"/etc/httpd/mime.types" "/etc/httpd/mime.types"
"/etc/apache2/mime.types")) "/etc/apache2/mime.types"))
=> (lambda (file) (load-mime-types ht file)))) => (lambda (file) (load-mime-types ht file))))
(set! ext-types ht))) (set! ext-types ht)))
(let* ((ext (path-extension file)) (let* ((ext (path-extension file))