Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Initial numerator/denominator complex num support

Browse source
This commit is contained in:
Justin Ethier 2021-07-22 17:21:52 -04:00
parent 826e7895ae
commit 48a7958c33
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
runtime.c
View file

@ -8437,6 +8437,13 @@ void Cyc_get_ratio(void *data, object cont, object n, int numerator)
d = double_value(n); d = double_value(n);
} else if (type_of(n) == bignum_tag) { } else if (type_of(n) == bignum_tag) {
d = mp_get_double(&bignum_value(n)); d = mp_get_double(&bignum_value(n));
} else if (type_of(n) == complex_num_tag) {
// TODO: if i is 0, set d = real part
if (numerator) {
return_closcall1(data, cont, n);
} else {
d = 1.0;
}
} else { } else {
Cyc_rt_raise2(data, "Unable to convert to ratio", n); Cyc_rt_raise2(data, "Unable to convert to ratio", n);
} }