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

math.function-tools: Fix compiler warning

db4
Slava Pestov 2009-04-17 20:49:59 -05:00
parent d929134ad7
commit aff996a58f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/math/function-tools/function-tools.factor
View File

@ -9,10 +9,10 @@ IN: math.function-tools
[ bi - ] 2curry ; inline [ bi - ] 2curry ; inline
: eval ( x func -- pt ) : eval ( x func -- pt )
dupd call 2array ; inline dupd call( x -- y ) 2array ; inline
: eval-inverse ( y func -- pt ) : eval-inverse ( y func -- pt )
dupd call swap 2array ; inline dupd call( y -- x ) swap 2array ; inline
: eval3d ( x y func -- pt ) : eval3d ( x y func -- pt )
[ 2dup ] dip call 3array ; inline [ 2dup ] dip call( x y -- z ) 3array ; inline