diff --git a/extra/classes/struct/struct-tests.factor b/extra/classes/struct/struct-tests.factor index 0d4f97a70a..9a2d3a8074 100644 --- a/extra/classes/struct/struct-tests.factor +++ b/extra/classes/struct/struct-tests.factor @@ -1,6 +1,6 @@ ! (c)Joe Groff bsd license USING: accessors alien.c-types classes.c-types classes.struct -combinators inverse kernel math tools.test ; +combinators kernel math tools.test ; IN: classes.struct.tests STRUCT: foo @@ -30,8 +30,6 @@ STRUCT: bar [ 7654 ] [ S{ foo f 98 7654 f } y>> ] unit-test [ 7654 ] [ S{ foo { y 7654 } } y>> ] unit-test -[ 98 7654 t ] [ S{ foo f 98 7654 t } [ foo ] undo ] unit-test - UNION-STRUCT: float-and-bits { f single-float } { bits uint } ;