fixed a stupid implementation of nth-root

diff --git a/contrib/math/analysis.factor b/contrib/math/analysis.factor
index 064f3f4088bf2e09ca1ae6ed8a54eb7f816a0355..75cc732565839c0e3bf0547e82112dd5154068b7 100644 (file)
--- a/contrib/math/analysis.factor
+++ b/contrib/math/analysis.factor
@@ -56,7 +56,7 @@ IN: math-contrib
     ] if ;
 
 : nth-root ( n x -- )
-    log >r recip r> * e swap ^ ;
+    over 0 = [ "0th root is undefined" throw ] when >r recip r> swap ^ ;
 
 ! Forth Scientific Library Algorithm #1
 !