gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.47, 2005/06/28 06:45:07	version 1.49, 2006/12/28 14:52:20
Line 1	Line 1
\ High level floating point 14jan94py	\ High level floating point 14jan94py

\ Copyright (C) 1995,1997,2003,2004 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,2003,2004,2005 Free Software Foundation, Inc.

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

Line 127 DOES> ( -- r )	Line 127 DOES> ( -- r )
scratch over c@ emit '. emit 1 /string type	scratch over c@ emit '. emit 1 /string type
'E emit . ;	'E emit . ;

require debugs.fs

: sfnumber ( c-addr u -- r true \| false )	: sfnumber ( c-addr u -- r true \| false )
2dup [CHAR] e scan ( c-addr u c-addr2 u2 )	2dup [CHAR] e scan ( c-addr u c-addr2 u2 )
dup 0=	dup 0=