From 1d5d5f663b61e95112d4620bb825f8ad1a02f58d Mon Sep 17 00:00:00 2001
From: Tommi Reiman <tommi@iki.fi>
Date: Thu, 7 Mar 2019 08:49:26 +0200
Subject: [PATCH] Support Clojure 1.9.0

---
 modules/reitit-core/src/reitit/trie.cljc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modules/reitit-core/src/reitit/trie.cljc b/modules/reitit-core/src/reitit/trie.cljc
index 501693b7..8af5877d 100644
--- a/modules/reitit-core/src/reitit/trie.cljc
+++ b/modules/reitit-core/src/reitit/trie.cljc
@@ -296,9 +296,9 @@
          (let [fields (keys params)]
            (if (some qualified-keyword? fields)
              params
-             (let [name (gensym "PathParams")
-                   ctor (symbol (str "map->" name))]
-               (eval `(do (defrecord ~name ~(mapv symbol fields)) (~ctor {}))))))))))
+             (let [sym (gensym "PathParams")
+                   ctor (symbol (str "map->" sym))]
+               (eval `(do (defrecord ~sym ~(mapv (comp symbol name) fields)) (~ctor {}))))))))))
 
 (defn insert
   "Returns a trie with routes added to it."