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

Fix unit test failure on BSD

db4
Slava Pestov 2008-04-10 22:02:23 -05:00
parent a1b050fd88
commit 039c344e87
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/tools/vocabs/vocabs-tests.factor Normal file
View File

@ -0,0 +1,8 @@
IN: tools.vocabs.tests
USING: tools.test tools.vocabs namespaces continuations ;
[ ] [
changed-vocabs get-global
f changed-vocabs set-global
[ "kernel" changed-vocab ] [ changed-vocabs set-global ] [ ] cleanup
] unit-test

6
extra/tools/vocabs/vocabs.factor
View File

@ -76,11 +76,11 @@ SYMBOL: changed-vocabs
[ f changed-vocabs set-global ] "tools.vocabs" add-init-hook [ f changed-vocabs set-global ] "tools.vocabs" add-init-hook
: changed-vocab ( vocab -- ) : changed-vocab ( vocab -- )
dup vocab dup vocab changed-vocabs get and
[ dup changed-vocabs get-global set-at ] [ drop ] if ; [ dup changed-vocabs get set-at ] [ drop ] if ;
: unchanged-vocab ( vocab -- ) : unchanged-vocab ( vocab -- )
changed-vocabs get-global delete-at ; changed-vocabs get delete-at ;
: unchanged-vocabs ( vocabs -- ) : unchanged-vocabs ( vocabs -- )
[ unchanged-vocab ] each ; [ unchanged-vocab ] each ;