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

Revert "math.functions: cleaner rect>." 

This reverts commit 5ecff652ba.
db4
John Benediktsson 2012-08-11 10:40:41 -07:00
parent fd94838032
commit 4561cf7684
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

@ -8,7 +8,7 @@ IN: math.functions
[ numerator ] [ denominator ] bi ; inline [ numerator ] [ denominator ] bi ; inline
: rect> ( x y -- z ) : rect> ( x y -- z )
[ complex boa ] unless-zero ; inline dup 0 = [ drop ] [ complex boa ] if ; inline
GENERIC: sqrt ( x -- y ) foldable GENERIC: sqrt ( x -- y ) foldable