 ] when
 
 ! Ensure traps get cleared
-[ 1/0. ] [ 1.0 0.0 /f ] unit-test
+{ 1/0. } [ 1.0 0.0 /f ] unit-test
 
 ! Ensure state is back to normal
-[ +round-nearest+ ] [ rounding-mode ] unit-test
-[ +denormal-keep+ ] [ denormal-mode ] unit-test
-[ { } ] [ fp-traps ] unit-test
+{ +round-nearest+ } [ rounding-mode ] unit-test
+{ +denormal-keep+ } [ denormal-mode ] unit-test
+{ { } } [ fp-traps ] unit-test
 
-[ ] [
+{ } [
     all-fp-exceptions [ compact-gc ] with-fp-traps
 ] unit-test
 

    ] with-rounding-mode
] unit-test

[
    0x3fd5,5555,5555,5556
    0x3fc9,9999,9999,999a
    0xbfc9,9999,9999,9999
    0xbfd5,5555,5555,5555
] [
    +round-up+ [
         1.0 3.0 /f double>bits
         1.0 5.0 /f double>bits

    ] with-rounding-mode
] unit-test

{
    0x3fd5,5555,5555,5555
    0x3fc9,9999,9999,9999
    0xbfc9,9999,9999,9999
    0xbfd5,5555,5555,5555
} [
    +round-zero+ [
         1.0 3.0 /f double>bits
         1.0 5.0 /f double>bits
