bootstrap fix

cvs
Slava Pestov 2005-12-02 06:02:08 +00:00
parent a3d71ca9aa
commit d3c3b80c07
1 changed files with 9 additions and 1 deletions

View File

@ -35,10 +35,18 @@ kernel lists namespaces prettyprint sequences styles ;
($block) ;
! Some links
TUPLE: link name ;
M: link article-title link-name article-title ;
M: link article-content link-name article-content ;
DEFER: help
: $subsection ( object -- )
first [
dup <link> presented set
dup [ help ] curry outline set
dup [ link-name help ] curry outline set
] make-hash [ article-title $subheading ] with-style terpri ;
: $link ( name -- )