gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.159, 2007/08/12 12:10:35	version 1.160, 2007/12/31 17:34:59
Line 1	Line 1
\ definitions needed for interpreter only	\ definitions needed for interpreter only

\ Copyright (C) 1995-2000,2004,2005 Free Software Foundation, Inc.	\ Copyright (C) 1995-2000,2004,2005,2007 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 1037 Defer mark-end	Line 1037 Defer mark-end

: (bootmessage) ( -- )	: (bootmessage) ( -- )
." Gforth " version-string type	." Gforth " version-string type
." , Copyright (C) 1995-2006 Free Software Foundation, Inc." cr	." , Copyright (C) 1995-2006,2007 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'"
[ has? os [IF] ]	[ has? os [IF] ]
cr ." Type `bye' to exit"	cr ." Type `bye' to exit"