From 1de758b6d69dfd9749bcf60be068d388cdebfa94 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?P=C5=99emysl=20Janouch?= <p.janouch@gmail.com>
Date: Thu, 25 May 2017 13:52:41 +0200
Subject: Replace for/break with a try/throw mechanism

---
 greet.ell | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'greet.ell')

diff --git a/greet.ell b/greet.ell
index b53f21d..3bfad4e 100644
--- a/greet.ell
+++ b/greet.ell
@@ -2,10 +2,18 @@ set greet {
 	arg _name
 	print 'hello ' @_name '\n'
 }
+set decr {
+	arg _name
+	set @_name (- @@_name 1)
+}
+
+set limit 2
 for (map { arg _x; .. @_x ! } [
 	world
 	creator
+	'darkness, my old friend'
 ]) {
 	arg _whom
 	greet @_whom
+	if (= 0 (decr limit)) { break }
 }
-- 
cgit v1.2.3