]> gitweb.factorcode.org Git - factor.git/blobdiff - core/strings/strings.factor
vocabs.loader: use ?if
[factor.git] / core / strings / strings.factor
index b577aca722afc1667945e4ed58cf5c2bce7c5e94..a2ca75deeecb481361ccbd4608cd43332af9483f 100644 (file)
@@ -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