From 047fb919e7a08c7daa5ec4581fc5ab8cf5f25a6f Mon Sep 17 00:00:00 2001 From: Drahflow Date: Sun, 30 Dec 2012 14:39:45 +0100 Subject: -, _, * now normal functions --- examples/working/macro.ey | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'examples/working/macro.ey') diff --git a/examples/working/macro.ey b/examples/working/macro.ey index fdaf0cf..10c7d3b 100644 --- a/examples/working/macro.ey +++ b/examples/working/macro.ey @@ -6,19 +6,19 @@ { /f deff /x defv { x f } } quoted { } { * } ? * -} "}0" defq +} "}_" defq -5 { { dump }0 } * /dumpfive deff -5 { dump }0 /dumpfivetwo deff +5 { { dump }_ } * /dumpfive deff +5 { dump }_ /dumpfivetwo deff -7 dumpfive - -7 dumpfivetwo - +7 dumpfive -- +7 dumpfivetwo -- # import members of other objects into local scope { - "_" | "-021" | ".|" | "-01" | |deff + "_" | "021" | "-" | ".|" | "01" | "-" | |deff } /usef defq @@ -33,14 +33,14 @@ exe /walkelem deff { sys .out .writestr } /out deff - _ { { " " out } rep }0 /indent deff - { 2 add walkelem }0 /walk deff + _ { { " " out } rep }_ /indent deff + { 2 add walkelem }_ /walk deff _ code [ { indent [ "\"" -102 "\"\n" ] |out each } { indent _ sym _ out - "{" streq { 0 =cont |lol } { - } ? * + "{" streq { 0 =cont |lol } { -- } ? * "\n" out } { blk |walk each -- cgit v1.2.3