mirrors: make failures check error type.

diff --git a/basis/mirrors/mirrors-tests.factor b/basis/mirrors/mirrors-tests.factor
index 0a2faee7b0e167e8ca289b8dcb726895f437f462..a4b255b37158ea6efd30b5a1fce55c720e472384 100644 (file)
--- a/basis/mirrors/mirrors-tests.factor
+++ b/basis/mirrors/mirrors-tests.factor
@@ -49,8 +49,8 @@ TUPLE: color
 { green integer }
 { blue integer } ;
 
-[ \ + make-mirror clear-assoc ] must-fail
-[ \ + make-mirror [ "name" ] dip delete-at ] must-fail
+[ \ + make-mirror clear-assoc ] [ mirror-slot-removal? ] must-fail-with
+[ \ + make-mirror [ "name" ] dip delete-at ] [ mirror-slot-removal? ] must-fail-with
 
 ! Test reshaping with a mirror
 1 2 3 color boa <mirror> "mirror" set