From c6953d5d626e21d36ef608ebfb1d1388b8e20b63 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 23 Oct 2017 16:55:41 -0700
Subject: [PATCH] help.markup: simpler $url.

---
 basis/help/markup/markup.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 7bd73e0bb6..4cf5c00d75 100644
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -77,7 +77,7 @@ ALIAS: $slot $snippet
     [ strong-style get print-element* ] ($span) ;
 
 : $url ( children -- )
-    [ ?second ] [ first ] bi over [ nip dup ] unless >url [
+    [ ?second ] [ first ] bi [ or ] keep >url [
         dup present href associate url-style get assoc-union
         [ write-object ] with-style
     ] ($span) ;