( VECTORS: installation of INTEGERS and REALS vectors)
decimal
: module ;
create ints 72 allot
vectors ints 72 cmove ( ForST system default integer vectors)
create flts ( comma in compilation records)
comp, fnumber comp, f. comp, f+ comp, f-
comp, f* comp, f/ comp, fmod comp, fabs
comp, fnegate
( words to switch maths State Table:)
: integers ints vectors 72 cmove ; immediate
: reals flts vectors 72 cmove ; immediate
( word to cast the following number as an integer)
: ?lit state @ if [compile] literal then ;
: integer 32 word number ?lit ; immediate
( word to cast the following number as a real)
: real 32 word fnumber ?lit ; immediate
from module
keep integers keep reals keep integer keep real
public