Fix bug
parent
ca32657972
commit
0565bbe0bc
|
|
@ -34,8 +34,13 @@ IN: tools.vocabs
|
|||
|
||||
: source-modified? ( path -- ? )
|
||||
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
|
||||
] [
|
||||
2drop f
|
||||
] if
|
||||
] [
|
||||
resource-exists?
|
||||
] ?if ;
|
||||
|
|
|
|||
Loading…
Reference in New Issue