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" ;
: 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 ;

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

@ -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*