compiler.units: add typedef for new-words.
parent
f00c90bb63
commit
b3aeb94020
|
@ -2,8 +2,8 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors arrays assocs classes classes.private
|
USING: accessors arrays assocs classes classes.private
|
||||||
classes.tuple classes.tuple.private continuations definitions
|
classes.tuple classes.tuple.private continuations definitions
|
||||||
generic init kernel kernel.private math namespaces sequences
|
generic hash-sets init kernel kernel.private math namespaces
|
||||||
sets source-files.errors vocabs words ;
|
sequences sets source-files.errors vocabs words ;
|
||||||
FROM: namespaces => set ;
|
FROM: namespaces => set ;
|
||||||
FROM: sets => members ;
|
FROM: sets => members ;
|
||||||
IN: compiler.units
|
IN: compiler.units
|
||||||
|
@ -168,7 +168,7 @@ M: object always-bump-effect-counter? drop f ;
|
||||||
notify-observers
|
notify-observers
|
||||||
] if-bootstrapping ;
|
] if-bootstrapping ;
|
||||||
|
|
||||||
TUPLE: nesting-observer new-words ;
|
TUPLE: nesting-observer { new-words hash-set } ;
|
||||||
|
|
||||||
M: nesting-observer definitions-changed
|
M: nesting-observer definitions-changed
|
||||||
[ members ] dip new-words>> [ delete ] curry each ;
|
[ members ] dip new-words>> [ delete ] curry each ;
|
||||||
|
|
Loading…
Reference in New Issue