mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-09-16 14:21:22 +00:00
Code Issues 1 Releases Wiki Activity

Add break special.

Browse Source 
The break special form can break out of both loops
and functions with an early (nil) return. Mainly useful
for generated code in macros, and should probably be discouraged
in user written code.
This commit is contained in:
Calvin Rose
2019-03-09 17:15:50 -05:00
parent a363dce943
commit 4a111b38b1
4 changed files with 57 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/suite5.janet
+12 -3
View File
@@ -43,7 +43,7 @@
(def b (tarray/new :float64 10 2 64 buf))))
(def a (tarray/new :float64 10))
(def b (tarray/new :float64 5 2 0 a))
(def b (tarray/new :float64 5 2 0 a))
(assert-no-error
"fill tarray"
@@ -63,6 +63,15 @@
(assert (deep= (array/remove @[1 2 3 4 5] 2 2) @[1 2 5]) "array/remove 2")
(assert (deep= (array/remove @[1 2 3 4 5] 2 200) @[1 2]) "array/remove 3")
(assert (deep= (array/remove @[1 2 3 4 5] -3 200) @[1 2 3]) "array/remove 4")
(end-suite)
# Break
(var summation 0)
(for i 0 10
(+= summation i)
(if (= i 7) (break)))
(assert (= summation 28) "break 1")
(assert (= nil ((fn [] (break) 4))) "break 2")
(end-suite)