stack-checker.dependencies: use existing add-depends-on-c-type

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index 6790139d0a41cda303649c51e289e4616a55275e..04653a828030056d7cd8fb46476c35dde6c53bca 100644 (file)
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -186,7 +186,7 @@ ERROR: bad-partial-eval quot word ;
 : inline-new ( class -- quot/f )
     {
         { [ dup struct-class? ] [
-            dup dup struct-slots add-depends-on-struct-slots
+            dup add-depends-on-c-type
             '[ _ <struct> ] ] }
         { [ dup tuple-class? ] [
             dup tuple-layout

diff --git a/basis/stack-checker/dependencies/dependencies.factor b/basis/stack-checker/dependencies/dependencies.factor
index 649d2fd95b6d6a05e7928411dde3a659686401fc..4b29f2c98e79fd88a8eb7c08f70c71599da0b221 100644 (file)
--- a/basis/stack-checker/dependencies/dependencies.factor
+++ b/basis/stack-checker/dependencies/dependencies.factor
@@ -128,15 +128,6 @@ TUPLE: depends-on-tuple-layout class layout ;
 M: depends-on-tuple-layout satisfied?
     [ class>> tuple-layout ] [ layout>> ] bi eq? ;
 
-TUPLE: depends-on-struct-slots class slots ;
-
-: add-depends-on-struct-slots ( class slots -- )
-    [ drop +conditional+ depends-on ]
-    [ depends-on-struct-slots add-conditional-dependency ] 2bi ;
-
-M: depends-on-struct-slots satisfied?
-    [ class>> struct-slots ] [ slots>> ] bi eq? ;
-
 TUPLE: depends-on-flushable word ;
 
 : add-depends-on-flushable ( word -- )

diff --git a/basis/stack-checker/transforms/transforms.factor b/basis/stack-checker/transforms/transforms.factor
index 5f0f48a4766892027b069bde160d01420648ce22..37789b78613a94fee2e6b9d9724807e7681439cb 100644 (file)
--- a/basis/stack-checker/transforms/transforms.factor
+++ b/basis/stack-checker/transforms/transforms.factor
@@ -142,7 +142,7 @@ IN: stack-checker.transforms
 \ boa [
     {
         { [ dup struct-class? ] [
-            dup dup struct-slots add-depends-on-struct-slots
+            dup add-depends-on-c-type
             '[ _ <struct-boa> ] ] }
         { [ dup tuple-class? ] [
             dup tuple-layout