chickadee » srfi-143 » fx+/carry

fx+/carry i j kprocedure

Returns the two fixnum results of the following computation:

(let*-values (((s) (+ i j k))
       ((q r) (balanced/ s (expt 2 fx-width))))
  (values r q))