--- gforth/float.fs 2005/12/31 15:46:08 1.48 +++ gforth/float.fs 2006/12/31 13:39:13 1.50 @@ -1,6 +1,6 @@ \ High level floating point 14jan94py -\ Copyright (C) 1995,1997,2003,2004,2005 Free Software Foundation, Inc. +\ Copyright (C) 1995,1997,2003,2004,2005,2006 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -127,8 +127,6 @@ DOES> ( -- r ) scratch over c@ emit '. emit 1 /string type 'E emit . ; -require debugs.fs - : sfnumber ( c-addr u -- r true | false ) 2dup [CHAR] e scan ( c-addr u c-addr2 u2 ) dup 0=