steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

make ^n foldable

Joe Groff 2009-05-06 12:36:34 -05:00
parent e4c84a91f6
commit 58fd3a415f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/functions/functions.factor
View File

@ -23,7 +23,7 @@ M: real sqrt
<PRIVATE <PRIVATE
GENERIC# ^n 1 ( z w -- z^w ) GENERIC# ^n 1 ( z w -- z^w ) foldable
: (^n) ( z w -- z^w ) : (^n) ( z w -- z^w )
make-bits 1 [ [ dupd * ] when [ sq ] dip ] reduce nip ; inline make-bits 1 [ [ dupd * ] when [ sq ] dip ] reduce nip ; inline