mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 07:33:01 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #1289 from primo-ppcg/loop-unless

Browse Source 
Add `:unless` loop modifier
This commit is contained in:
Calvin Rose
2023-09-13 11:56:33 -07:00
committed by GitHub
parent ff18b92eb0 db366558e7
commit dbcc1fad3e
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/boot/boot.janet
View File

@@ -473,6 +473,7 @@
:repeat (with-syms [iter] :repeat (with-syms [iter]
~(do (var ,iter ,verb) (while (> ,iter 0) ,rest (-- ,iter)))) ~(do (var ,iter ,verb) (while (> ,iter 0) ,rest (-- ,iter))))
:when ~(when ,verb ,rest) :when ~(when ,verb ,rest)
:unless ~(unless ,verb ,rest)
(error (string "unexpected loop modifier " binding)))))) (error (string "unexpected loop modifier " binding))))))
# 3 term expression # 3 term expression

5
test/suite-boot.janet
View File

@@ -186,6 +186,11 @@
(assert (= txs [[-1 -1] [-1 0] [-1 1] [0 -1] [0 1] [1 -1] [1 0] [1 1]]) (assert (= txs [[-1 -1] [-1 0] [-1 1] [0 -1] [0 1] [1 -1] [1 0] [1 1]])
"nested seq") "nested seq")
# :unless modifier
(assert (deep= (seq [i :range [0 10] :unless (odd? i)] i)
@[0 2 4 6 8])
":unless modifier")
# 515891b03 # 515891b03
(assert (deep= (tabseq [i :in (range 3)] i (* 3 i)) (assert (deep= (tabseq [i :in (range 3)] i (* 3 i))
@{0 0 1 3 2 6})) @{0 0 1 3 2 6}))