Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Initial implementation

  • Loading branch information...
commit 7827b711aa74f9cbd390ded09ed2af646426f085 1 parent 273c6ae
@stathissideris authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/defalt.clj
View
6 src/defalt.clj
@@ -1,8 +1,8 @@
(ns defalt
(require [clojure.string :as string]))
-;; symbol key -> :selected
-;; symbol key -> :alternatives -> alternative key -> alternative function
+;; ns -> symbol key -> :selected
+;; ns -> symbol key -> :alternatives -> alternative key -> alternative function
(def registry (atom {}))
(defn parse-alt-name [alt-name]
@@ -46,7 +46,7 @@
(defmacro reset [original]
`(switch ~original ::master))
-#_(defmacro source [original alternative]
+(defmacro source [original alternative]
(:source
(meta
(get-in @registry [original :alternatives alternative]))))
Please sign in to comment.
Something went wrong with that request. Please try again.