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

Fix bug

Slava Pestov 2008-03-20 17:25:54 -05:00
parent ca32657972
commit 0565bbe0bc
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,8 +34,13 @@ IN: tools.vocabs
: source-modified? ( path -- ? ) : source-modified? ( path -- ? )
dup source-files get at [ dup source-files get at [
dup source-file-path ?resource-path utf8 file-lines lines-crc32 dup source-file-path ?resource-path
dup exists? [
utf8 file-lines lines-crc32
swap source-file-checksum = not swap source-file-checksum = not
] [
2drop f
] if
] [ ] [
resource-exists? resource-exists?
] ?if ; ] ?if ;