at* -> ?at in a couple places

diff --git a/basis/help/topics/topics.factor b/basis/help/topics/topics.factor
index 8c687eb1d5d47263ec05f32304a0e42358552517..9fba09913dc808e5798125bf532d830d6f6f2ad0 100644 (file)
--- a/basis/help/topics/topics.factor
+++ b/basis/help/topics/topics.factor
@@ -54,7 +54,7 @@ M: no-article summary
     drop "Help article does not exist" ;
 
 : article ( name -- article )
-    dup articles get at* [ nip ] [ drop no-article ] if ;
+    articles get ?at [ no-article ] unless ;
 
 M: object article-name article article-name ;
 M: object article-title article article-title ;

diff --git a/basis/unix/groups/groups.factor b/basis/unix/groups/groups.factor
index f4d91df245e093d0827e98be102471ead4e3783c..b2a50b7374711e536b33696799a9dddd9edf3f7d 100644 (file)
--- a/basis/unix/groups/groups.factor
+++ b/basis/unix/groups/groups.factor
@@ -46,7 +46,7 @@ PRIVATE>
 
 : group-name ( id -- string )
     dup group-cache get [
-        dupd at* [ name>> nip ] [ drop number>string ] if
+        ?at [ name>> ] [ number>string ] if
     ] [
         group-struct [ group-gr_name ] [ f ] if*
     ] if*