vocabs.loader: use ?if

[factor.git] / core / vocabs / loader / loader.factor

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 113ed9a4a24b280f0008f7d9286b27b2a9aef245..458bfc401628d4c98a250541bf7e4fe5aaeff0a0 100644 (file)
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -148,13 +148,14 @@ PRIVATE>
     ] when* require ;
 
 : run ( vocab -- )
-    dup load-vocab vocab-main [
-        execute( -- ) ]
+    load-vocab
+    [ vocab-main ]
+    [ execute( -- ) ]
     [
         "The " write vocab-name write
         " vocabulary does not define an entry point." print
         "To define one, refer to \\ MAIN: help" print
-    ] ?if-old ;
+    ] ?if ;
 
 <PRIVATE