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

[factor.git] / core / math / math.factor

diff --git a/core/math/math.factor b/core/math/math.factor
index b0dd45885bbb7d8d09606fdffe48453fe8146566..ecf3e43001606fc82569469bf1893bc746f3faa4 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -134,7 +134,7 @@ PRIVATE>
 ERROR: log2-expects-positive x ;
 
 : log2 ( x -- n )
-    dup 0 <= [ throw-log2-expects-positive ] [ (log2) ] if ; inline
+    dup 0 <= [ log2-expects-positive ] [ (log2) ] if ; inline
 
 : zero? ( x -- ? ) 0 number= ; inline
 : 2/ ( x -- y ) -1 shift ; inline