steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Slava Pestov 2010-02-22 19:21:56 +13:00
parent db3a23ffe0
commit 2c34ecbdb5
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/stack-checker/dependencies/dependencies.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2009, 2010 Slava Pestov. ! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs accessors classes classes.algebra fry generic USING: arrays assocs accessors classes classes.algebra fry
kernel math namespaces sequences words sets generic kernel math namespaces sequences words sets
combinators.short-circuit classes.tuple ; combinators.short-circuit classes.tuple alien.c-types ;
FROM: classes.tuple.private => tuple-layout ; FROM: classes.tuple.private => tuple-layout ;
FROM: assocs => change-at ; FROM: assocs => change-at ;
IN: stack-checker.dependencies IN: stack-checker.dependencies
@ -38,6 +38,13 @@ SYMBOLS: effect-dependency conditional-dependency definition-dependency ;
: depends-on-definition ( word -- ) : depends-on-definition ( word -- )
definition-dependency depends-on ; definition-dependency depends-on ;
GENERIC: depends-on-c-type ( c-type -- )
M: c-type-word depends-on-c-type depends-on-definition ;
M: array depends-on-c-type
[ word? ] filter [ depends-on-definition ] each ;
! Generic words that the current quotation depends on ! Generic words that the current quotation depends on
SYMBOL: generic-dependencies SYMBOL: generic-dependencies