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

vocabs.refresh: slight cleanup.

windows-high-dpi
John Benediktsson 2018-02-25 14:12:54 -08:00
parent 4788bfba4c
commit 07d92b48e1
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/vocabs/refresh/refresh-tests.factor
View File

@ -4,6 +4,6 @@ USING: vocabs.refresh tools.test continuations namespaces ;
{ } [
changed-vocabs get-global
f changed-vocabs set-global
[ t ] [ "kernel" changed-vocab-by-name? ] unit-test
{ t } [ "kernel" changed-vocab? ] unit-test
[ "kernel" changed-vocab ] [ changed-vocabs set-global ] [ ] cleanup
] unit-test

9
basis/vocabs/refresh/refresh.factor
View File

@ -20,7 +20,7 @@ IN: vocabs.refresh
SYMBOL: changed-vocabs
: changed-vocab ( vocab -- )
: changed-vocab ( vocab-name -- )
dup lookup-vocab changed-vocabs get and
[ changed-vocabs get adjoin ] [ drop ] if ;
@ -30,13 +30,13 @@ SYMBOL: changed-vocabs
: mark-unchanged-vocabs ( vocab-names -- )
[ mark-unchanged-vocab ] each ;
: changed-vocab-by-name? ( vocab -- ? )
: changed-vocab? ( vocab-name -- ? )
changed-vocabs get [ in? ] [ drop t ] if* ;
: (to-refresh) ( vocab-name loaded? path -- ? )
[
swap [
swap changed-vocab-by-name? [
swap changed-vocab? [
source-modified?
] [ drop f ] if
] [ 2drop t ] if
@ -66,8 +66,7 @@ SYMBOL: changed-vocabs
[
[ [ lookup-vocab f >>source-loaded? drop ] each ]
[ [ lookup-vocab f >>docs-loaded? drop ] each ] bi*
]
[
] [
union
[ mark-unchanged-vocabs ]
[ require-all ] bi