Fix bug

2008-03-20 17:25:54 -05:00 · 2008-03-20 17:25:54 -05:00 · 0565bbe0bc
parent ca32657972
commit 0565bbe0bc
1 changed files with 7 additions and 2 deletions
--- a/extra/tools/vocabs/vocabs.factor
+++ b/extra/tools/vocabs/vocabs.factor
@ -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
-        swap source-file-checksum = not
+        dup source-file-path ?resource-path
+        dup exists? [
+            utf8 file-lines lines-crc32
+            swap source-file-checksum = not
+        ] [
+            2drop f
+        ] if
    ] [
        resource-exists?
    ] ?if ;