]> gitweb.factorcode.org Git - factor.git/commitdiff
help.syntax: handle parens
authorJohn Benediktsson <mrjbq7@gmail.com>
Wed, 3 May 2023 19:24:44 +0000 (12:24 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Wed, 3 May 2023 19:24:44 +0000 (12:24 -0700)
basis/help/syntax/syntax.factor

index 270555ac35e359cfaffc72a895da2cb6ddd1d823..b88751a2f9de966bae63795828758bc6e9793bed 100644 (file)
@@ -47,7 +47,7 @@ DEFER: HELP{
         pick ?last dup array? [ ?first ] when
         help-block? not and
     ] [
-        dup last CHAR: \s eq? not
+        dup last " (" member? not
     ] if [ CHAR: \s suffix! ] when ;
 
 :: parse-help-text ( end -- seq )
@@ -64,7 +64,7 @@ DEFER: HELP{
         obj [
             [
                 dup string? [
-                    dup ?first " .,;:" member? [
+                    dup ?first " .,;:)" member? [
                         [ push-help-space ] dip
                     ] unless append!
                 ] [