From 8f5bd796a1eb6f9abf863aaa22c6ec9f7efd3143 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 7 Mar 2011 15:03:48 -0800 Subject: [PATCH] help.markup: Store $url as urls. --- basis/help/markup/markup.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor index ce954eae98..8e0c423b59 100644 --- a/basis/help/markup/markup.factor +++ b/basis/help/markup/markup.factor @@ -5,8 +5,8 @@ combinators combinators.smart definitions definitions.icons effects fry generic hashtables help.stylesheet help.topics io io.styles kernel make math namespaces parser present prettyprint prettyprint.stylesheet quotations see sequences sets slots -sorting splitting strings vectors vocabs vocabs.loader words -words.symbol ; +sorting splitting strings urls vectors vocabs vocabs.loader +words words.symbol ; FROM: prettyprint.sections => with-pprint ; FROM: namespaces => set ; IN: help.markup @@ -76,9 +76,9 @@ ALIAS: $slot $snippet [ strong-style get print-element* ] ($span) ; : $url ( children -- ) - [ - dup first href associate url-style get assoc-union - print-element* + first dup >url [ + dup present href associate url-style get assoc-union + [ write-object ] with-style ] ($span) ; : $nl ( children -- )