Remove redundant camel->lower-camel function.

* dump.scm (camel->lower-camel): Delete function.
(default-metadata-proc): Do not use camel->lower-camel.

1 files changed, 1 insertions, 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))))