diff --git a/src/experimental/_impl/_pnoise1.scad b/src/experimental/_impl/_pnoise1.scad
index ad7bb4c6..db8b3376 100644
--- a/src/experimental/_impl/_pnoise1.scad
+++ b/src/experimental/_impl/_pnoise1.scad
@@ -4,7 +4,9 @@ function _pnoise_fade(t) = pow(t, 3) * (t * (t * 6 - 15) + 10);
 
 function _pnoise_lerp(a, b, t) = a + t * (b - a);
 
-function _pnoise_grad1(hashvalue, x) = (hashvalue % 2 == 0) ? x : -x; 
+
+
+function _pnoise1_grad1(hashvalue, x) = (hashvalue % 2 == 0) ? x : -x; 
 
 function _pnoise1(x, n, seed = 0) =
     let(
@@ -15,7 +17,7 @@ function _pnoise1(x, n, seed = 0) =
         b = _pnoise_table[(seed + xi + 1) % 256]
     )
     _pnoise_lerp(
-        _pnoise_grad1(a, xf),
-        _pnoise_grad1(b, xf - 1),
+        _pnoise1_grad1(a, xf),
+        _pnoise1_grad1(b, xf - 1),
         u
     );
\ No newline at end of file