From 4ea2820f2f6d03d91c023ced75219b76bf7e9716 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 18 Aug 2009 10:25:47 -0500
Subject: [PATCH] remove irrelevant undo test from classes.struct

---
 extra/classes/struct/struct-tests.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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 <struct-boa> ] undo ] unit-test
-
 UNION-STRUCT: float-and-bits
     { f single-float }
     { bits uint } ;