X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_float.c;fp=src%2Fscheme%2Fao_scheme_float.c;h=b75289d7f131d69af265ab5f02e5de10312903f0;hp=c026c6fb1fd477f9f612e79016beecbb4d287213;hb=32f6877288ea6b7eb1cae9a42fbe8e2c5dbb2f08;hpb=2e11cae044cd2c053049effd76df9c5adecb84d7

diff --git a/src/scheme/ao_scheme_float.c b/src/scheme/ao_scheme_float.c
index c026c6fb..b75289d7 100644
--- a/src/scheme/ao_scheme_float.c
+++ b/src/scheme/ao_scheme_float.c
@@ -69,10 +69,10 @@ ao_scheme_poly_number(ao_poly p)
 	switch (ao_scheme_poly_base_type(p)) {
 	case AO_SCHEME_INT:
 		return ao_scheme_poly_int(p);
+	case AO_SCHEME_BIGINT:
+		return ao_scheme_poly_bigint(p)->value;
 	case AO_SCHEME_OTHER:
 		switch (ao_scheme_other_type(ao_scheme_poly_other(p))) {
-		case AO_SCHEME_BIGINT:
-			return ao_scheme_bigint_int(ao_scheme_poly_bigint(p)->value);
 		case AO_SCHEME_FLOAT:
 			return ao_scheme_poly_float(p)->value;
 		}