Return to float.fs CVS log | Up to [gforth] / gforth |
version 1.62, 2011/11/14 22:33:22 | version 1.64, 2011/12/31 15:29:25 |
---|---|
Line 1 | Line 1 |
\ High level floating point 14jan94py | \ High level floating point 14jan94py |
\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010 Free Software Foundation, Inc. | \ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010,2011 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 142 DOES> ( -- r ) | Line 142 DOES> ( -- r ) |
THEN ; | THEN ; |
[ifdef] recognizer: | [ifdef] recognizer: |
' noop | [IFDEF] 2lit, |
:noname postpone Fliteral ; | : flit, postpone Fliteral ; |
:noname ['] noop ; | |
:noname ['] flit, ; | |
[ELSE] | |
' noop | |
:noname postpone Fliteral ; | |
[THEN] | |
dup | dup |
recognizer: r:fnumber | recognizer: r:fnumber |