From 3cf79fdcd90b94f534e1ea0ae9175b63a4fd8b5d Mon Sep 17 00:00:00 2001
From: Adam Avramov <fallenblood@gmail.com>
Date: Wed, 28 Oct 2015 20:51:28 +0200
Subject: [PATCH] translate subsequent slashes to dots

---
 src/backend/escodegen/writer.wisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/backend/escodegen/writer.wisp b/src/backend/escodegen/writer.wisp
index b8dd672f..71f5cdba 100644
--- a/src/backend/escodegen/writer.wisp
+++ b/src/backend/escodegen/writer.wisp
@@ -49,7 +49,8 @@
   **macros**      __macros__
   list->vector    listToVector
   set!            set
-  foo_bar         foo_bar
+  foo.bar         foo_bar
+  foo/bar         foo.bar
   number?         isNumber
   red=            redEqual
   create-server   createServer"
@@ -71,6 +72,8 @@
   (set! id (join "_" (split id "*")))
   ;; foo.bar -> foo_bar
   (set! id (join "_" (split id ".")))
+  ;; foo/bar -> foo.bar
+  (set! id (join "." (split id "/")))
   ;; list->vector ->  listToVector
   (set! id (if (identical? (subs id 0 2) "->")
              (subs (join "-to-" (split id "->")) 1)