This commit is contained in:
2026-07-06 10:33:51 +02:00
+2 -2
View File
@@ -91,8 +91,8 @@
(define (file->ini file*)
(let* ((file (get-ini-file file*))
(lines (if (file-exists? file) (file->lines file) '()))
(re-section #px"^\\[([a-zA-Z0-9_-]+)\\]$")
(re-keyval #px"^([a-zA-Z0-9_-]+)[=](.*)$")
(re-section #px"^\\[([a-zA-Z0-9_.-]+)\\]$")
(re-keyval #px"^([a-zA-Z0-9_.-]+)[=](.*)$")
(re-comment #px"^[;](.*)$"))
(letrec ((f (lambda (sections section lines)
(if (null? lines)