( 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