help.syntax: allow help.markup to be parsed as a literal.

diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor
index a6a02095303bebe3e1dce24e34dabb8face13277..e71d383c1f1f0cbc8f19f5190ece6e6cb86eb7d8 100644 (file)
--- a/basis/help/syntax/syntax.factor
+++ b/basis/help/syntax/syntax.factor
@@ -14,6 +14,7 @@ IN: help.syntax
         { [ dup parsing-word? ] [
             nip V{ } clone swap execute-parsing first
             dup wrapper? [ wrapped>> \ $link swap 2array ] when ] }
+        { [ dup [ vocabulary>> "help.markup" = ] when ] [ nip ] }
         [ drop ]
     } cond ;