--- gforth/prim	1997/05/21 20:39:36	1.1
+++ gforth/prim	1997/06/15 19:43:28	1.3
@@ -1795,7 +1795,11 @@ r2 = exp(r1);
 fexpm1		r1 -- r2	float-ext
 ""@i{r2}=@i{e}**@i{r1}@minus{}1""
 #ifdef HAVE_EXPM1
-extern double expm1(double);
+extern double
+#ifdef NeXT
+              const
+#endif
+                    expm1(double);
 r2 = expm1(r1);
 #else
 r2 = exp(r1)-1.;
@@ -1807,7 +1811,11 @@ r2 = log(r1);
 flnp1		r1 -- r2	float-ext
 ""@i{r2}=ln(@i{r1}+1)""
 #ifdef HAVE_LOG1P
-extern double log1p(double);
+extern double
+#ifdef NeXT
+              const
+#endif
+                    log1p(double);
 r2 = log1p(r1);
 #else
 r2 = log(r1+1.);