Swap set / body order for each (#1400)

This commit is contained in:
sogaiu 2024-02-13 11:12:18 +09:00
parent 431ecd3d1a
commit 5885ccba61
1 changed files with 2 additions and 2 deletions

View File

@ -442,8 +442,8 @@
:each ~(,in ,ds ,k)
:keys k
:pairs ~[,k (,in ,ds ,k)]))
(set ,k (,next ,ds ,k))
,;body))))
,;body
(set ,k (,next ,ds ,k))))))
(defn- iterate-template
[binding expr body]