From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 17 Feb 2023 04:22:23 +0000 (-0600)
Subject: vocabs.loader: use ?if
X-Git-Tag: 0.99~550
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=eae29a11e6155375dda3024dfae30a7ac0eb87bb

vocabs.loader: use ?if
---

diff --git a/core/memoize/memoize.factor b/core/memoize/memoize.factor
index 5eccc9d7dc..d5a09e3ab8 100644
--- a/core/memoize/memoize.factor
+++ b/core/memoize/memoize.factor
@@ -44,8 +44,9 @@ IN: memoize
 : make/0 ( table quot effect -- quot )
     out>> [
         packer '[
-            _ dup first-unsafe
-            [ ] [ @ @ [ 0 rot set-nth-unsafe ] keep ] ?if-old
+            _
+            [ first-unsafe ]
+            [ @ @ [ 0 rot set-nth-unsafe ] keep ] ?unless
         ]
     ] keep unpacker compose ;
 
diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 50dcb3b3d3..e483e0c8d4 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -46,7 +46,7 @@ SYMBOL: auto-use?
     no-word-restarted ;
 
 : parse-word ( string -- word )
-    dup search [ ] [ no-word ] ?if-old ;
+    [ search ] [ no-word ] ?unless ;
 
 ERROR: number-expected ;
 
diff --git a/core/strings/strings.factor b/core/strings/strings.factor
index b577aca722..a2ca75deee 100644
--- a/core/strings/strings.factor
+++ b/core/strings/strings.factor
@@ -70,8 +70,8 @@ M: string equal?
 
 M: string hashcode*
     nip
-    dup string-hashcode
-    [ ] [ dup rehash-string string-hashcode ] ?if-old ;
+    [ string-hashcode ]
+    [ dup rehash-string string-hashcode ] ?unless ;
 
 M: string length
     length>> ; inline
diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 113ed9a4a2..458bfc4016 100644
--- 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