From 8b0b5878d23f2f95d38199ea69f63916fdef48ab Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 22 Feb 2009 17:52:59 -0600 Subject: [PATCH] at* -> ?at in a couple places --- basis/help/topics/topics.factor | 2 +- basis/unix/groups/groups.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/help/topics/topics.factor b/basis/help/topics/topics.factor index 8c687eb1d5..9fba09913d 100644 --- 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 f4d91df245..b2a50b7374 100644 --- 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*