Hmmm, however it does not work when compiled: > : test7 9.33e-1 8.334e+12 f* fp. ; ok > test7 3.402823E38 ok > 9.33e-1 8.334e+12 f* fp. 7.775622E12 ok >
Any hint from experts?? P. ----- PŮVODNÍ ZPRÁVA ----- Od: "pito" <[email protected]> Komu: [email protected] Předmět: [Amforth] Recognizer - float - issue Datum: 26.5.2011 - 14:34:07 > 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 > > > > > ------------------------------------------------------------------------------ > > vRanger cuts backup time in half-while increasing > security. > With the market-leading solution for virtual > backup and recovery, > you get blazing-fast, flexible, and affordable > data protection. > Download your free trial now. > http://p.sf.net/sfu/quest-d2dcopy1 > _______________________________________________ > Amforth-devel mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/amforth-devel > ------------------------------------------------------------------------------ vRanger cuts backup time in half-while increasing security. With the market-leading solution for virtual backup and recovery, you get blazing-fast, flexible, and affordable data protection. Download your free trial now. http://p.sf.net/sfu/quest-d2dcopy1 _______________________________________________ Amforth-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/amforth-devel
