round number before converting to exact
This commit is contained in:
@@ -52,7 +52,7 @@ static bool scm2uint(uint32_t *x, SCM s)
|
|||||||
{
|
{
|
||||||
if ( scm_is_false(scm_number_p(s)) == 1 )
|
if ( scm_is_false(scm_number_p(s)) == 1 )
|
||||||
return false;
|
return false;
|
||||||
*x = scm_to_uint32(scm_inexact_to_exact(s));
|
*x = scm_to_uint32(scm_inexact_to_exact(scm_round_number(s)));
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user