;; (bind-val NUM_f32 NUM{float}* (NUM num_f32_plus num_f32_minus num_f32_mul num_f32_div)) (bind-func NUM (lambda (a:float) (let ((obj:NUM{float}* (alloc))) (tfill! obj num_f32_plus num_f32_minus num_f32_mul num_f32_div a) obj)))