1 files changed, 3 insertions, 1 deletions
diff --git a/dump.scm b/dump.scm
index a3e89a3..ada42e5 100755
--- a/dump.scm
+++ b/dump.scm
@@ -111,7 +111,9 @@ characters with an underscore and prefixing with gn:PREFIX."
                                   (case c
                                     ((#\/ #\< #\> #\+ #\( #\) #\space #\@) #\_)
                                     (else c)))
-                                (string-downcase str))))))
+                                (string-downcase
+                                 (string-trim-right str #\.)))))))
+
 
 (define (snake->lower-camel str)
   (let ((char-list (string->list str)))