[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.157 and 1.158

version 1.157, Sun Mar 18 22:35:52 2007 UTC version 1.158, Fri Jul 6 12:54:57 2007 UTC
Line 517 
Line 517 
   
 [THEN]  [THEN]
   
 cell% 2* 0 0 field >body ( xt -- a_addr ) \ core  cell% 2* 0 0 field >body ( xt -- a_addr ) \ core to-body
 \G Get the address of the body of the word represented by @i{xt} (the  \G Get the address of the body of the word represented by @i{xt} (the
 \G address of the word's data field).  \G address of the word's data field).
 drop drop  drop drop
Line 1033 
Line 1033 
   
 \ \ Cold Boot                                           13feb93py  \ \ Cold Boot                                           13feb93py
   
 : (bootmessage)  : (bootmessage) ( -- )
     ." Gforth " version-string type      ." Gforth " version-string type
     ." , Copyright (C) 1995-2006 Free Software Foundation, Inc." cr      ." , Copyright (C) 1995-2006 Free Software Foundation, Inc." cr
     ." Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'"      ." Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'"
Line 1041 
Line 1041 
      cr ." Type `bye' to exit"       cr ." Type `bye' to exit"
 [ [THEN] ] ;  [ [THEN] ] ;
   
 defer bootmessage \ gforth  defer bootmessage ( -- ) \ gforth
 \G Hook (deferred word) executed right after interpreting the OS  \G Hook (deferred word) executed right after interpreting the OS
 \G command-line arguments.  Normally prints the Gforth startup  \G command-line arguments.  Normally prints the Gforth startup
 \G message.  \G message.

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help