Merge pull request #1402 from sogaiu/each-body-before-set

Swap set / body order for each (#1400)
This commit is contained in:
Calvin Rose 2024-02-15 04:05:15 -08:00 committed by GitHub
commit c293c7de93
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 2 additions and 2 deletions

View File

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