Fix race

2008-03-20 14:25:39 -05:00 · 2008-03-20 14:25:39 -05:00 · d517bad9ca
parent c5eae01930
commit d517bad9ca
1 changed files with 1 additions and 0 deletions
--- a/extra/tools/vocabs/vocabs.factor
+++ b/extra/tools/vocabs/vocabs.factor
@ -108,6 +108,7 @@ MEMO: (vocab-file-contents) ( path -- lines )
 : set-vocab-file-contents ( seq vocab name -- )
    dupd vocab-append-path [
        ?resource-path utf8 set-file-lines
+        \ (vocab-file-contents) reset-memoized
    ] [
        "The " swap vocab-name
        " vocabulary was not loaded from the file system"