ini-file: don't escape quotes in section names

.git/config is a good test for this

diff --git a/basis/ini-file/ini-file-tests.factor b/basis/ini-file/ini-file-tests.factor
index 44213e0f9d5996a9d1409377d1953a7ed953267a..8cba11c7dab14a4eab9a7510215099e77391a8b9 100644 (file)
--- a/basis/ini-file/ini-file-tests.factor
+++ b/basis/ini-file/ini-file-tests.factor
@@ -7,6 +7,10 @@ USING: ini-file tools.test ;
 
 { H{ { "section" H{ } } } } [ "[section]" string>ini ] unit-test
 
+{ "[test \"section with quotes\"]\n\n" } [
+    "[test \"section with quotes\" single quote ']" string>ini ini>string
+] unit-test
+
 { H{ { "section" H{ } } } } [ "[\"section\" ]" string>ini ] unit-test
 
 { H{ { "   some name with spaces " H{ } } } }

diff --git a/basis/ini-file/ini-file.factor b/basis/ini-file/ini-file.factor
index a29000b04ef7b0c1322220e04d285cc79c913e4e..7d00b42dae51093306c26e374170d61a73803c45 100644 (file)
--- a/basis/ini-file/ini-file.factor
+++ b/basis/ini-file/ini-file.factor
@@ -128,7 +128,7 @@ PRIVATE>
         dup string? [
             [ escape-string ] bi@ "%s=%s\n" printf
         ] [
-            [ escape-string "[%s]\n" printf ] dip
+            [ "[%s]\n" printf ] dip
             [ [ escape-string ] bi@ "%s=%s\n" printf ]
             assoc-each nl
         ] if