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

use bi

db4
Doug Coleman 2008-08-31 10:09:21 -05:00
parent 18d629a916
commit cb69b593c9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/help/markup/markup.factor
View File

@ -143,13 +143,13 @@ M: f print-element drop ;
link-style get [ write-object ] with-style ; link-style get [ write-object ] with-style ;
: ($link) ( article -- ) : ($link) ( article -- )
[ dup article-name swap >link write-link ] ($span) ; [ [ article-name ] [ >link ] bi write-link ] ($span) ;
: $link ( element -- ) : $link ( element -- )
first ($link) ; first ($link) ;
: ($long-link) ( object -- ) : ($long-link) ( object -- )
dup article-title swap >link write-link ; [ article-title ] [ >link ] bi write-link ;
: ($subsection) ( element quot -- ) : ($subsection) ( element quot -- )
[ [