f-round-to-s:floating_misc — ordinary primitive
FORTH
FROUND>S (f: x -- s: n)(
)
complements FTRUNC>S for applications that expect F>S to be defined with a rounding behavior like
: FROUND>S FROUND FTRUNC>S ;