Arc Cross Reference

round

[procedure] round n

(def round (n)
  (withs (base (truncate n) rem (abs (- n base)))
    (if (> rem 1/2) ((if (> n 0) + -) base 1)
        (< rem 1/2) base
        (odd base)  ((if (> n 0) + -) base 1)
                    base)))