compiler.tree.propagation.transforms: only partial-eval struct-class in memory>struct

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index 6790139d0a41cda303649c51e289e4616a55275e..f27e883960ed20fc2305e9fef0125621bc4445fd 100644 (file)
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -202,7 +202,7 @@ ERROR: bad-partial-eval quot word ;
 \ new [ inline-new ] 1 define-partial-eval
 
 \ memory>struct [
-    dup tuple-class? [
+    dup struct-class? [
         dup tuple-layout
         [ add-depends-on-tuple-layout ]
         [ [ "boa-check" word-prop [ ] or ] dip ] 2bi