fixed a stupid implementation of nth-root

2006-01-28 18:41:45 +00:00 · 2006-01-28 18:41:45 +00:00 · 7b33785b03
parent 133793ced1
commit 7b33785b03
1 changed files with 1 additions and 1 deletions
--- 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
 !