dealing with &rest and &optional

smoke

@@ -1,3 +1,3 @@
 #!/bin/sh
 
-./run-bare -Q --batch --eval "(print (emacs-version))"
+./run-bare --batch --eval "(print (emacs-version))"

src/deuce/core.clj

@@ -4,7 +4,10 @@
 
 (defmacro defun [name args & body]
   (let [[doc body] (split-with string? body)
-        name (if (seq? name) (eval name) name)]
+        name (if (seq? name) (eval name) name)
+        args (replace '{&rest &} args)
+        [args &optional optional-args] (partition-by '#{&optional} args)
+        args (concat args (when &optional ['& (vec optional-args)]))]
     `(do (defn ~name ~(vec args) ~@body)
          (alter-meta! (var ~name) merge {:doc ~(apply str doc)})
          ~name)))

src/deuce/scaffold.clj

@@ -1,5 +1,5 @@
 (ns deuce.scaffold
-  (use [deuce.core])
+  (use [deuce.core :exclude (-main)])
   (require [clojure.java.shell :as sh]
            [clojure.string :as string]
            [clojure.walk :as walk]