Skip to content

Commit

Permalink
Reformat (switched back to Emacs for editing)
Browse files Browse the repository at this point in the history
  • Loading branch information
coconutpalm committed Apr 12, 2024
1 parent 1a9a3c3 commit f0277ce
Showing 1 changed file with 7 additions and 6 deletions.
13 changes: 7 additions & 6 deletions src/righttypes/types.clj
Original file line number Diff line number Diff line change
Expand Up @@ -634,12 +634,13 @@ this default is that optional map keys with typos won't be automatically detecte


(defmacro indexed
[map-ctor index-key]
(let [line-col (seq (meta &form))
pretty (fn [x] (if (instance? clojure.lang.Named x) (name x) (pr-str x)))
ctor-src (pretty map-ctor)
sourceinfo (str (.getName *ns*) line-col ": Failure creating (indexed " ctor-src " " index-key ")")]
`(indexed' ~map-ctor ~sourceinfo ~index-key)))
""
[map-ctor index-key]
(let [line-col (seq (meta &form))
pretty (fn [x] (if (instance? clojure.lang.Named x) (name x) (pr-str x)))
ctor-src (pretty map-ctor)
sourceinfo (str (.getName *ns*) line-col ": Failure creating (indexed " ctor-src " " index-key ")")]
`(indexed' ~map-ctor ~sourceinfo ~index-key)))


#_{:clj-kondo/ignore [:unused-value :unused-binding]}
Expand Down

0 comments on commit f0277ce

Please sign in to comment.