typed: disable struct-class typed unboxing for now

diff --git a/basis/typed/typed.factor b/basis/typed/typed.factor
index 4b2f3da33a2121323886299b633c794881151a68..b296fe94832187540fa49bd7b22afc11b09c8693 100644 (file)
--- a/basis/typed/typed.factor
+++ b/basis/typed/typed.factor
@@ -24,6 +24,7 @@ PREDICATE: typed-word < word "typed-word" word-prop >boolean ;
         [ all-slots empty? not ]
         [ immutable-tuple-class? ]
         [ final-class? ]
+        [ struct-class? not ] ! for struct boa change
     } 1&& ;
 
 ! typed inputs