mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 14:51:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

Simplify ecl_truncate1() on rationals

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-12-16 00:47:15 +01:00
parent b263921e99
commit 438a33cafb
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/numbers/floor.d
View file

@ -19,6 +19,7 @@
#ifndef HAVE_ISOC99
# define floorf floor
#endif
#include <ecl/impl/math_dispatch2.h>
#include <ecl/internal.h>
@(defun floor (x &optional (y OBJNULL))

13
src/c/numbers/truncate.d
View file

@ -25,7 +25,6 @@
cl_object
ecl_truncate1(cl_object x)
{
const cl_env_ptr the_env = ecl_process_env();
cl_object v0, v1;
switch (ecl_t_of(x)) {
case t_fixnum:
@ -34,9 +33,10 @@ ecl_truncate1(cl_object x)
v1 = ecl_make_fixnum(0);
break;
case t_ratio:
v0 = ecl_truncate2(x->ratio.num, x->ratio.den);
v1 = ecl_make_ratio(ecl_nth_value(the_env, 1), x->ratio.den);
break;
if (ecl_plusp(x->ratio.num))
return ecl_floor1(x);
else
return ecl_ceiling1(x);
case t_singlefloat: {
float d = ecl_single_float(x);
float y = d > 0? floorf(d) : ceilf(d);
@ -63,7 +63,10 @@ ecl_truncate1(cl_object x)
default:
FEwrong_type_nth_arg(@[truncate],1,x,@[real]);
}
ecl_return2(the_env, v0, v1);
{
const cl_env_ptr the_env = ecl_process_env();
ecl_return2(the_env, v0, v1);
}
}
cl_object