[Amforth] Recognizer - float - issue

[pito <pi...@vo...>]

Hi - this does work with my setup:
> marker -mycode
ok
> : rec-float count >float state @ if postpone fliteral then ;
ok
> .s
ok
> get-recognizer
ok
> .s
0 2005 3 
1 2007 1562 
2 2009 1532 
3 2011 1593 
ok
> : place-rec ( xt -- )
okget-recognizer
okdup >r
ok1-  n>r
okswap
oknr> drop r> 1+
okset-recognizer
ok;
ok
> get-recognizer
ok
> .s
0 1997 3 
1 1999 1562 
2 2001 1532 
3 2003 1593 
4 2005 3 
5 2007 1562 
6 2009 1532 
7 2011 1593 
ok
> ...
... ?? -13 4 
> ' rec-float place-rec
ok
> .s
ok
> get-recognizer
ok
> .s
0 2003 4 
1 2005 1562 
2 2007 1532 
3 2009 8483 
4 2011 1593 
ok
> 1.222e6 fs.
1.2219999E6  ok
> -3.556e12 0.564343E-12 f* fp.
-2.006803  ok
> 1.00 fsin fs.
8.414711E-1  ok
> 1.000e15 flog10 fs.
1.50000024E1  ok
>