From a508368c4019ad7ff4fed94e794d90eb8b5115de Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 4 Dec 2021 15:05:18 +0530
Subject: Remove redundant camel->lower-camel function.

* dump.scm (camel->lower-camel): Delete function.
(default-metadata-proc): Do not use camel->lower-camel.
---
 dump.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/dump.scm b/dump.scm
index faeffdd..a37b9d1 100755
--- a/dump.scm
+++ b/dump.scm
@@ -107,10 +107,6 @@ characters with an underscore and prefixing with gn:PREFIX."
              (drop char-list 1)
              char-list)))))
 
-(define (camel->lower-camel str)
-  (string-append (string-downcase (substring str 0 1))
-                 (substring str 1)))
-
 (define (string-blank? str)
   "Return non-#f if STR consists only of whitespace characters."
   (string-every char-set:whitespace str))
@@ -129,9 +125,7 @@ characters with an underscore and prefixing with gn:PREFIX."
   (match-lambda
     ((key . value)
      (cons (string->symbol
-            (string-append
-             "gn:" (camel->lower-camel
-                    (snake->lower-camel key))))
+            (string-append "gn:" (snake->lower-camel key)))
            value))
     (x (error "malformed alist element" x))))
 
-- 
cgit v1.2.3