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

Revert "math.functions: cleaner rect>." 

This reverts commit 5ecff652ba.
John Benediktsson 2012-08-11 10:40:41 -07:00
parent 5aef9ef873
commit 6710a94d19
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