[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.6 and 1.7

version 1.6, Wed Feb 8 13:38:53 1995 UTC version 1.7, Sat Oct 7 17:38:19 1995 UTC
Line 367 
Line 367 
         THEN          THEN
         Debug? IF drop THEN ;          Debug? IF drop THEN ;
   
 : c-;code               \ end of create part  : c-does>               \ end of create part
         Display? IF S" DOES> " Com# .string THEN          Display? IF S" DOES> " Com# .string THEN
         Cell+ cell+ ;          Cell+ cell+ ;
   
Line 398 
Line 398 
         ' (+loop) A,     ' c-+loop A,          ' (+loop) A,     ' c-+loop A,
         ' (next) A,      ' c-next A,          ' (next) A,      ' c-next A,
         ' ;s A,          ' c-exit A,          ' ;s A,          ' c-exit A,
         ' (;code) A,     ' c-;code A,          ' (does>) A,     ' c-does> A,
         ' (abort") A,    ' c-abort" A,          ' (abort") A,    ' c-abort" A,
         ' (compile) A,   ' c-(compile) A,          ' (compile) A,   ' c-(compile) A,
         0 ,          0 ,

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help