From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 19 Aug 2022 04:11:41 +0000 (-0500)
Subject: alien.utilities: rename utility word more? => deref?
X-Git-Tag: 0.99~601
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=bb0818a21f7aa47f5f531a426d09bf95478060c9

alien.utilities: rename utility word more? => deref?
---

diff --git a/basis/alien/utilities/utilities.factor b/basis/alien/utilities/utilities.factor
index f1f0a2cb99..d35f5ffdc0 100644
--- a/basis/alien/utilities/utilities.factor
+++ b/basis/alien/utilities/utilities.factor
@@ -7,14 +7,14 @@ IN: alien.utilities
 
 SPECIALIZED-ARRAY: void*
 
-: more? ( alien -- ? )
+: deref? ( alien -- ? )
     { [ ] [ void* deref ] } 1&& ;
 
 : advance ( void* -- void* )
     cell swap <displaced-alien> ;
 
 : alien>strings ( alien encoding -- strings )
-    [ [ dup more? ] ] dip
+    [ [ dup deref? ] ] dip
     '[ [ advance ] [ void* deref _ alien>string ] bi ]
     produce nip ;