mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-04 01:23:04 +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
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))