diff options
author | Přemysl Janouch <p.janouch@gmail.com> | 2017-05-26 19:44:03 +0200 |
---|---|---|
committer | Přemysl Janouch <p.janouch@gmail.com> | 2017-05-26 20:15:43 +0200 |
commit | 3e68a09ae1617551ca1cbf3b5b72621170b4aa0c (patch) | |
tree | 8e5234c897c48c40c6e1f75e74febdc51e06e963 /greet.ell | |
parent | 8414e07010b2265db3cbbd2854d8dc49acc63ac8 (diff) | |
download | ell-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.ell | 12 |
1 files changed, 3 insertions, 9 deletions
@@ -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 } } |