bit-shift-left

src/squint/internal/defmacro.clj

@@ -0,0 +1,23 @@
+(ns squint.internal.defmacro
+  (:refer-clojure :exclude [defmacro list]))
+
+(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))
+                             (> (count body) 2))
+                      [(first body) (rest body)]
+                      [nil body])
+        bodies (if (vector? (first body))
+                 (clojure.core/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))))
+
+(clojure.core/defmacro list [& xs]
+  `(clojure.core/list ~@xs))