From d3c3b80c07c65dd28d503621bdea5c032747ab0b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 2 Dec 2005 06:02:08 +0000 Subject: [PATCH] bootstrap fix --- library/help/markup.factor | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/library/help/markup.factor b/library/help/markup.factor index c5cff7cd69..1e2e784d4d 100644 --- a/library/help/markup.factor +++ b/library/help/markup.factor @@ -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 presented set - dup [ help ] curry outline set + dup [ link-name help ] curry outline set ] make-hash [ article-title $subheading ] with-style terpri ; : $link ( name -- )