change ERROR: words from throw-foo back to foo.

[factor.git] / extra / noise / noise.factor

diff --git a/extra/noise/noise.factor b/extra/noise/noise.factor
index 0ff11df21357cd16ce01ec65eecff54d57b9c3f2..aa62a4391d78dda9e6be8f59d81c0b3f2cac47d1 100644 (file)
--- a/extra/noise/noise.factor
+++ b/extra/noise/noise.factor
@@ -53,7 +53,7 @@ ERROR: invalid-perlin-noise-table table ;
 
 : validate-table ( table -- table )
     dup { [ byte-array? ] [ length 512 >= ] } 1&&
-    [ throw-invalid-perlin-noise-table ] unless ;
+    [ invalid-perlin-noise-table ] unless ;
 
 ! XXX doesn't work when v is nan or |v| >= 2^31
 : floor-vector ( v -- v' )