USING: accessors alien.c-types arrays assocs classes
classes.algebra classes.algebra.private classes.maybe
-classes.struct classes.tuple combinators.short-circuit fry
-generic kernel math namespaces sequences sets words ;
+classes.tuple combinators.short-circuit fry generic kernel math
+namespaces sequences sets words ;
FROM: classes.tuple.private => tuple-layout ;
IN: stack-checker.dependencies
[ drop +conditional+ depends-on ]
[ depends-on-struct-slots add-conditional-dependency ] 2bi ;
+SLOT: fields
+
M: depends-on-struct-slots satisfied?
- [ class>> struct-slots ] [ slots>> ] bi eq? ;
+ [ class>> "c-type" word-prop fields>> ] [ slots>> ] bi eq? ;
TUPLE: depends-on-flushable word ;