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

math.floats.env: fix compiled trap unit tests

Slava Pestov 2009-09-13 18:22:49 -05:00
parent 894e300729
commit db9b2897dd
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/floats/env/env-tests.factor vendored
View File

@ -106,7 +106,7 @@ set-default-fp-env
append '[ _ _ with-fp-traps ] ; append '[ _ _ with-fp-traps ] ;
: test-traps-compiled ( traps inputs quot -- quot' ) : test-traps-compiled ( traps inputs quot -- quot' )
swapd '[ _ [ _ _ with-fp-traps ] compile-call ] ; swapd '[ @ [ _ _ with-fp-traps ] compile-call ] ;
{ +fp-zero-divide+ } [ 1.0 0.0 ] [ /f ] test-traps must-fail { +fp-zero-divide+ } [ 1.0 0.0 ] [ /f ] test-traps must-fail
{ +fp-inexact+ } [ 1.0 3.0 ] [ /f ] test-traps must-fail { +fp-inexact+ } [ 1.0 3.0 ] [ /f ] test-traps must-fail