[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.37 and 1.38

version 1.37, Sun Apr 8 13:48:12 2001 UTC version 1.38, Fri Jan 4 20:31:54 2002 UTC
Line 271 
Line 271 
     THEN ;      THEN ;
   
 : c-call  : c-call
     Display? IF  dup @ body> .word bl cemit  THEN  cell+ ;      Display? IF  ." call " dup @ body> .word bl cemit  THEN  cell+ ;
   
 : .name-without ( addr -- addr )  : .name-without ( addr -- addr )
 \ prints a name without () e.g. (+LOOP) or (s")  \ prints a name without () e.g. (+LOOP) or (s")

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help