f-round-to-s:fpnostack — ordinary primitive
EXTENSIONS
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 ;