steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

at* -> ?at in a couple places

db4
Doug Coleman 2009-02-22 17:52:59 -06:00
parent 917296670d
commit 8b0b5878d2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/help/topics/topics.factor
View File

@ -54,7 +54,7 @@ M: no-article summary
drop "Help article does not exist" ; drop "Help article does not exist" ;
: article ( name -- article ) : 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-name article article-name ;
M: object article-title article article-title ; M: object article-title article article-title ;

2
basis/unix/groups/groups.factor
View File

@ -46,7 +46,7 @@ PRIVATE>
: group-name ( id -- string ) : group-name ( id -- string )
dup group-cache get [ dup group-cache get [
dupd at* [ name>> nip ] [ drop number>string ] if ?at [ name>> ] [ number>string ] if
] [ ] [
group-struct [ group-gr_name ] [ f ] if* group-struct [ group-gr_name ] [ f ] if*
] if* ] if*