From 5ba9d22a95b03b8af82253afa2ae7eff84bb9d9b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 30 Oct 2022 20:57:43 -0700 Subject: [PATCH] help.syntax: only allow help.markup $words --- basis/help/syntax/syntax.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor index 2cb4614c6c..b45bfd3ee7 100644 --- a/basis/help/syntax/syntax.factor +++ b/basis/help/syntax/syntax.factor @@ -17,7 +17,7 @@ DEFER: HELP{ ?scan-token dup { [ "{" = [ \ HELP{ ] [ f ] if ] [ "syntax" lookup-word ] - [ "help.markup" lookup-word ] + [ { [ "$" head? ] [ "help.markup" lookup-word ] } 1&& ] [ dup ?last ":{[(/\"" member-eq? [ search ] [ drop f ] if ] } 1|| { { [ dup not ] [ drop ] } -- 2.34.1