cond-tpl

babashka · Nov 17, 2023 · e29ba78 · e29ba78
1 parent efa2181
commit e29ba78
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/src/sci/configs/hoplon/hoplon.cljs b/src/sci/configs/hoplon/hoplon.cljs
@@ -151,7 +151,6 @@
       :else    (span \"Default\"))
   "
   [& clauses]
-  (assert (even? (count clauses)))
   (let [[conds tpls] (apply map vector (partition 2 clauses))
         syms1        (repeatedly (count conds) gensym)
         syms2        (repeatedly (count conds) gensym)]

diff --git a/src/sci/configs/macros.clj b/src/sci/configs/macros.clj
@@ -1,8 +1,10 @@
 (ns sci.configs.macros
   (:refer-clojure :exclude [defmacro]))
 
-(defn add-macro-args [[args body]]
-  (list (into '[&form &env] args) body))
+(def ^:dynamic *debug* false)
+
+(defn add-macro-args [[args & body]]
+  (list* (into '[&form &env] args) body))
 
 (clojure.core/defmacro defmacro [name & body]
   (let [[?doc body] (if (and (string? (first body))
@@ -12,7 +14,10 @@
         bodies (if (vector? (first body))
                  (list body)
                  body)]
+    #_(when *debug* (.println System/err (with-out-str (clojure.pprint/pprint bodies))))
     `(defn ~(vary-meta name assoc :sci/macro true)
        ~@(when ?doc [?doc])
        ~@(map add-macro-args bodies))))
 
+#_(binding [*debug* true]
+  (.println System/err (str (macroexpand '(defmacro my-stuff "docstring" [& args] x y z)))))