From 3e68a09ae1617551ca1cbf3b5b72621170b4aa0c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?P=C5=99emysl=20Janouch?=
Date: Fri, 26 May 2017 19:44:03 +0200
Subject: Remove suck
struct context::arguments stank, the "arg" special form stank.
The amount of lines this adds can be counted on one hand.
---
greet.ell | 12 +++---------
1 file changed, 3 insertions(+), 9 deletions(-)
(limited to 'greet.ell')
diff --git a/greet.ell b/greet.ell
index 3bfad4e..b2f8ef9 100644
--- a/greet.ell
+++ b/greet.ell
@@ -1,19 +1,13 @@
-set greet {
- arg _name
- print 'hello ' @_name '\n'
-}
set decr {
- arg _name
- set @_name (- @@_name 1)
+ set @1 (- @@1 1)
}
set limit 2
-for (map { arg _x; .. @_x ! } [
+for (map { .. @1 ! } [
world
creator
'darkness, my old friend'
]) {
- arg _whom
- greet @_whom
+ { print 'hello ' @1 '\n' } @1
if (= 0 (decr limit)) { break }
}
--
cgit v1.2.3