aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-09-14 13:03:34 +0530
committerArun Isaac2021-09-14 13:03:34 +0530
commit2be45a4f15c956b17ab52d3467bbf2e6cd93c074 (patch)
tree17940d2eba09f79694c30ce7f630f8510f642c2e
parent7498accb1e0a5c73fabeb5fa44db22ced561842f (diff)
downloadgn-transform-databases-2be45a4f15c956b17ab52d3467bbf2e6cd93c074.tar.gz
Delete unused camel->kebab function.
* dump.scm (camel->kebab): Delete function.
-rwxr-xr-xdump.scm9
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)))