Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Use #* assignments instead of head-tail

Browse Source
This commit is contained in:
Kodi Arfer 2019-08-03 09:26:32 -04:00
parent e6aac2308a
commit 7aaece3725
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hy/contrib/multi.hy
View File

@ -70,9 +70,6 @@
(with-decorator (method-decorator ~name) (with-decorator (method-decorator ~name)
(defn ~name ~params ~@body)))) (defn ~name ~params ~@body))))
(defn head-tail [l]
(, (get l 0) (cut l 1)))
(defmacro defn [name &rest bodies] (defmacro defn [name &rest bodies]
(setv arity-overloaded? (fn [bodies] (setv arity-overloaded? (fn [bodies]
(if (isinstance (first bodies) HyString) (if (isinstance (first bodies) HyString)
@ -83,10 +80,10 @@
(do (do
(setv comment (HyString)) (setv comment (HyString))
(if (= (type (first bodies)) HyString) (if (= (type (first bodies)) HyString)
(setv [comment bodies] (head-tail bodies))) (setv [comment #* bodies] bodies))
(+ '(do (import [hy.contrib.multi [MultiDispatch]])) (lfor (+ '(do (import [hy.contrib.multi [MultiDispatch]])) (lfor
[let-binds #* body] bodies [let-binds #* body] bodies
`(with-decorator MultiDispatch (defn ~name ~let-binds ~comment ~@body))))) `(with-decorator MultiDispatch (defn ~name ~let-binds ~comment ~@body)))))
(do (do
(setv [lambda-list body] (head-tail bodies)) (setv [lambda-list #* body] bodies)
`(setv ~name (fn* ~lambda-list ~@body))))) `(setv ~name (fn* ~lambda-list ~@body)))))