- value = ao_scheme_arg(cons, 0);
- if (!ao_scheme_number_typep(ao_scheme_poly_type(value)))
- return ao_scheme_error(AO_SCHEME_INVALID, "%s: non-numeric", ao_scheme_poly_atom(_ao_scheme_atom_sqrt)->name);
- return ao_scheme_float_get(sqrtf(ao_scheme_poly_number(value)));