mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-26 08:20:27 +00:00
Code Issues 1 Releases Wiki Activity

Fix multiple predicates in loop macro.

Browse Source
This commit is contained in:
Calvin Rose 2018-11-23 23:17:45 -05:00
parent d791077e25
commit 5b3fc3d2cc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/core.janet
View File

@ -303,10 +303,10 @@
:while (do :while (do
(array.push preds verb) (array.push preds verb)
(doone (+ i 2) preds)) (doone (+ i 2) preds))
:let (tuple 'let verb (doone (+ i 2))) :let (tuple 'let verb (doone (+ i 2) preds))
:when (tuple 'if verb (doone (+ i 2))) :when (tuple 'if verb (doone (+ i 2) preds))
:before (tuple 'do verb (doone (+ i 2))) :before (tuple 'do verb (doone (+ i 2) preds))
:after (tuple 'do (doone (+ i 2)) verb) :after (tuple 'do (doone (+ i 2) preds) verb)
:repeat (do :repeat (do
(def $iter (gensym)) (def $iter (gensym))
(def $n (gensym)) (def $n (gensym))