[gforth] / gforth / substitute.fs  

gforth: gforth/substitute.fs

Diff for /gforth/substitute.fs between version 1.1 and 1.2

version 1.1, Thu Jul 5 22:25:10 2012 UTC version 1.2, Sat Jul 14 13:16:02 2012 UTC
Line 31 
Line 31 
                     '%' $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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help