make ^n foldable

2009-05-06 12:36:34 -05:00 · 2009-05-06 12:36:34 -05:00 · 58fd3a415f
parent e4c84a91f6
commit 58fd3a415f
1 changed files with 1 additions and 1 deletions
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@ -23,7 +23,7 @@ M: real sqrt

 <PRIVATE

-GENERIC# ^n 1 ( z w -- z^w )
+GENERIC# ^n 1 ( z w -- z^w ) foldable

 : (^n) ( z w -- z^w )
    make-bits 1 [ [ dupd * ] when [ sq ] dip ] reduce nip ; inline