[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.71 and 1.72

version 1.71, Sat May 1 21:29:08 2010 UTC version 1.72, Sun May 2 16:58:02 2010 UTC
Line 315 
Line 315 
                 S" DOES> " Com# .string 4 cells + EXIT endif                  S" DOES> " Com# .string 4 cells + EXIT endif
             [IFDEF] !;abi-code              [IFDEF] !;abi-code
                 over 2 cells + @ ['] !;abi-code >body = if  drop                  over 2 cells + @ ['] !;abi-code >body = if  drop
                     S" DOES> " Com# .string 4 cells + EXIT endif                      S" ;abi-code " Com# .string 4 cells + EXIT endif
             [THEN]              [THEN]
             endif              endif
         endif          endif

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help