Return to substitute.fs CVS log | Up to [gforth] / gforth |
version 1.1, 2012/07/05 22:25:10 | version 1.2, 2012/07/14 13:16:02 |
---|---|
Line 31 Variable macro$ | Line 31 Variable macro$ |
'%' $split 2swap dup 0= IF | '%' $split 2swap dup 0= IF |
2drop s" %" macro$ $+! r> 1+ >r | 2drop s" %" macro$ $+! r> 1+ >r |
ELSE | ELSE |
2dup macros-wordlist search-wordlist IF | macros-wordlist search-wordlist IF |
execute 2swap 2drop r> 1+ >r macro$ $+! | -rot 2>r execute macro$ $+! 2r> r> 1+ >r |
ELSE 2drop THEN | THEN |
THEN | THEN |
THEN | THEN |
THEN | THEN |