Delete unused camel->kebab function.

* dump.scm (camel->kebab): Delete function.

1 files changed, 0 insertions, 9 deletions

diff --git a/dump.scm b/dump.scm
index 64f1c68..187fadf 100755
--- a/dump.scm
+++ b/dump.scm
@@ -75,15 +75,6 @@
 
 ;;; Dump tables
 
-(define (camel->kebab str)
-  (call-with-output-string
-    (lambda (port)
-      (string-for-each (lambda (c)
-                         (when (and (not (zero? (port-position port)))
-                                    (char-set-contains? char-set:upper-case c))
-                           (put-char port #\-))
-                         (put-char port (char-downcase c)))
-                       str))))
 
 (define (snake->lower-camel str)
   (let ((char-list (string->list str)))