X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_int.c;h=77f65e95ed2b189254f429cd1d8662da54227654;hb=c9e82a5929a836bc61b464507badef2df5e9d4d0;hp=6ee3096df1ca7d17f3fc24cf616a70e6b4ed2492;hpb=56d46ceaa1413415f25e47e81036426132f99924;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_int.c b/src/lisp/ao_lisp_int.c
index 6ee3096d..77f65e95 100644
--- a/src/lisp/ao_lisp_int.c
+++ b/src/lisp/ao_lisp_int.c
@@ -15,7 +15,8 @@
 #include "ao_lisp.h"
 
 void
-ao_lisp_int_print(int i)
+ao_lisp_int_print(ao_poly p)
 {
+	int i = ao_lisp_poly_int(p);
 	printf("%d", i);
 }