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

math.functions: cleaner rect>.

db4
John Benediktsson 2012-08-10 15:51:11 -07:00
parent 4c54b32170
commit 0178117d6c
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 )
dup 0 = [ drop ] [ complex boa ] if ; inline [ complex boa ] unless-zero ; inline
GENERIC: sqrt ( x -- y ) foldable GENERIC: sqrt ( x -- y ) foldable