YAPC::EU 2018 Glasgow Update!

Task/Metaprogramming/Forth/metaprogramming-2.fth

@@ -0,0 +1,10 @@
+ : CHARSET    [CHAR] ~  [CHAR] ! DO  I EMIT LOOP ;
+
+: >DIGIT ( n -- c) DUP 9 > IF  7 +  THEN [CHAR] 0 + ;
+
+: -TRAILING  ( adr len -- adr len')  \ remove trailing blanks (spaces)
+             BEGIN
+                2DUP + 1- C@ BL =    \ test if last char = blank
+             WHILE
+                1-                   \ dec. length
+             REPEAT ;