luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-22 18:41:10 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Support Clojure 1.9.0

Browse source
This commit is contained in:
Tommi Reiman 2019-03-07 08:49:26 +02:00
parent e41a50cb80
commit 1d5d5f663b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
modules/reitit-core/src/reitit/trie.cljc
View file

@ -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."