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

Merge pull request #577 from katterjohn/fix-mime-type

Browse source 
(chibi net server-util): file-mime-type: fix load-mime-types call
This commit is contained in:
Alex Shinn 2019-10-06 08:20:45 +08:00 • committed by GitHub
commit e3935695a1
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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))