diff --git a/Objects/floatobject.c b/Objects/floatobject.c
index 1707c30..c2b132e 100644
--- a/Objects/floatobject.c
+++ b/Objects/floatobject.c
@@ -14,6 +14,11 @@
 #include "objimpl.h"
 #include "errors.h"
 
+#ifndef THINK_C
+extern double fmod PROTO((double, double));
+extern double pow PROTO((double, double));
+#endif
+
 object *
 newfloatobject(fval)
 	double fval;
@@ -157,7 +162,6 @@
 	object *w;
 {
 	double wx;
-	extern double fmod PROTO((double, double));
 	if (!is_floatobject(w)) {
 		err_badarg();
 		return NULL;
@@ -176,7 +180,6 @@
 	object *w;
 {
 	double iv, iw, ix;
-	extern double pow PROTO((double, double));
 	if (!is_floatobject(w)) {
 		err_badarg();
 		return NULL;