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

View File

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