\ To run Floating Point tests
cr .( Running FP Tests) cr
s" [undefined]" pad c! pad char+ pad c@ move
pad find nip 0=
[if]
: [undefined] ( "name" -- flag )
bl word find nip 0=
; immediate
[then]
s" ttester.fs" included
s" fatan2-test.fs" included
s" ieee-arith-test.fs" included
s" ieee-fprox-test.fs" included
s" fpzero-test.4th" included
s" fpio-test.4th" included
s" to-float-test.4th" included
s" paranoia.4th" included
s" ak-fp-test.fth" included
cr cr
.( FP tests finished) cr cr