gauche-package populate - Fix license handling

shirok · Jan 30, 2024 · 4886c9d · 4886c9d
1 parent 959df62
commit 4886c9d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/gauche-package.in b/src/gauche-package.in
@@ -486,7 +486,8 @@ Options:
                        (build-path (sys-dirname (gauche-library-directory))
                                    "package-templates"))]
            [lic (cond [license (string->symbol (string-downcase license))]
-                      [(~ package'licenses) pair? => car]
+                      [(~ package'licenses) pair?
+                       => ($ string->symbol $ string-downcase $ car $)]
                       [else #f])]
            [mod (if (pair? (~ package'providing-modules))
                   (car (~ package'providing-modules))