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

slice is amazing, @olasd is amazing, I love everything.

Browse Source
This commit is contained in:
Paul Tagliamonte 2014-01-10 22:50:20 -05:00
parent 110476901c
commit cc2f45be69
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hy/core/macros.hy
View File

@ -52,10 +52,8 @@
; basecase, let's just slip right in.
`(for* [~@args] ~@body)
; otherwise, let's do some legit handling.
(let [[it (iter args)]
[az (list (zip it it))]
[alist (list-comp (get x 0) [x az])]
[ilist (list-comp (get x 1) [x az])]]
(let [[alist (slice args 0 nil 2)]
[ilist (slice args 1 nil 2)]]
`(do
(import itertools)
(for* [(, ~@alist) (itertools.product ~@ilist)] ~@body))))))