Form number to given precision

form-to.red

Red [
  Description: "Form number to given precision"
  Date: 2019-0-13
]
form-to: func [
	"Form number to a given floating-point precision"
	number [number!] "Number to be formed"
	precision [integer!] "Decimal places (positive integer)"
	/local pcnt?
][
	if precision < 1 [cause-error 'user 'message "`precision` has to be positive integer!"]
	if percent? number [pcnt?: yes number: 100 * to-float number]
	number: form round/to number 1.0 / power 10 precision
	number: head pad/with find/tail number dot precision #"0"
	if pcnt? [append number #"%"]
	number
]