kernel: ?if-old is just `[ or* ] 2dip if`

[factor.git] / basis / vocabs / metadata / metadata.factor

diff --git a/basis/vocabs/metadata/metadata.factor b/basis/vocabs/metadata/metadata.factor
index a02729238bff0118636fcb515f678191d9b6f4ba..169a9e82404ffa896d5a9297183c04a08a0aa9a2 100644 (file)
--- a/basis/vocabs/metadata/metadata.factor
+++ b/basis/vocabs/metadata/metadata.factor
@@ -23,10 +23,10 @@ MEMO: vocab-file-lines ( vocab name -- lines/f )
     ] when ;
 
 : set-vocab-file-lines ( lines vocab name -- )
-    dupd vocab-file-path [
+    dupd vocab-file-path or* [
         swap [ ?delete-file ] [ swap utf8 set-file-lines ] if-empty
         \ vocab-file-lines reset-memoized
-    ] [ vocab-name no-vocab ] ?if-old ;
+    ] [ vocab-name no-vocab ] if ;
 
 : vocab-resources-path ( vocab -- path/f )
     "resources.txt" vocab-file-path ;