stuff

src/cljs/emptyhead/util/magic.cljs

@@ -0,0 +1,14 @@
+(ns emptyhead.util.magic
+  "Magic values for EmptyHead.")
+
+(def principle-ns [:emptyhead :principle])
+
+(def principle-impl-ns (conj principle-ns :implementation))
+
+(defn principle-impl-prop [operator]
+  (conj principle-impl-ns operator))
+
+(def extension-ns (conj principle-ns :extends))
+
+(defn extension-prop [stage]
+  (conj extension-ns stage))