help.syntax: fix nested help lookups.

diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor
index 0888be585022e45b3ad2f3de2a4383cd859c2272..da04d1109a3c6849fd4238df113c71fcd1aed8c3 100644 (file)
--- a/basis/help/syntax/syntax.factor
+++ b/basis/help/syntax/syntax.factor
@@ -6,10 +6,13 @@ help.markup help.topics kernel lexer math namespaces parser
 sequences splitting strings strings.parser vocabs.parser words ;
 IN: help.syntax
 
+DEFER: HELP{
+
 <PRIVATE
 
 :: parse-help-token ( end -- str/obj/f )
     ?scan-token dup {
+        [ "{" = [ \ HELP{ ] [ f ] if ]
         [ "syntax" lookup-word ]
         [ "help.markup" lookup-word ]
         [ dup ?last ":{[(/\"" member-eq? [ search ] [ drop f ] if ]