aboutsummaryrefslogtreecommitdiff
path: root/greet.ell
diff options
context:
space:
mode:
authorPřemysl Janouch <p.janouch@gmail.com>2017-05-26 19:44:03 +0200
committerPřemysl Janouch <p.janouch@gmail.com>2017-05-26 20:15:43 +0200
commit3e68a09ae1617551ca1cbf3b5b72621170b4aa0c (patch)
tree8e5234c897c48c40c6e1f75e74febdc51e06e963 /greet.ell
parent8414e07010b2265db3cbbd2854d8dc49acc63ac8 (diff)
downloadell-3e68a09ae1617551ca1cbf3b5b72621170b4aa0c.tar.gz
ell-3e68a09ae1617551ca1cbf3b5b72621170b4aa0c.tar.xz
ell-3e68a09ae1617551ca1cbf3b5b72621170b4aa0c.zip
Remove suck
struct context::arguments stank, the "arg" special form stank. The amount of lines this adds can be counted on one hand.
Diffstat (limited to 'greet.ell')
-rw-r--r--greet.ell12
1 files changed, 3 insertions, 9 deletions
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 }
}