From 6a4005c1d82bf4cae5e6b1405de3323be2dd0485 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 12 Mar 2026 11:06:12 +0100
Subject: [PATCH] Support '.' in sections and fields

---
 main.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/main.rkt b/main.rkt
index d827945..5032361 100644
--- a/main.rkt
+++ b/main.rkt
@@ -84,8 +84,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)