..a pity it shots down amforth so I have to reload- 

> : place-rec ( xt -- )
ok    get-recognizer
ok    dup >r
ok    1-  n>r
n>r ?? -13 12
>     swap
ok
>     nr> drop r> 1+
nr> ?? -13 8
>     set-recogniz

BAANGGG


> 
> use a word place-rec as a helper word.
> 
> : place-rec ( xt -- )
> get-recognizer
> dup >r
> 1-  n>r
> swap
> nr> drop r> 1+
> set-recognizer
> ;
> 
> and have a look at the following session log
> 
> 
> > 123e4 fs.
> 123e4 ?? -13 6
> > ' rec-float place-rec
> ok
> > 123e4 fs.
> 1.2299999E6 ok
> >
> 
> HTH
> Matthias
> 


------------------------------------------------------------------------------
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

Reply via email to