Changeset 35439 in project

Timestamp:

04/26/18 01:06:22 (9 months ago)

Author:

kon

Message:

ocd

File:

• release/4/apropos/trunk/apropos.scm (modified) (1 diff)

release/4/apropos/trunk/apropos.scm

@@ -131 +131 @@
 ;; Constants
 
+(define-constant CSI-HELP-HEAD (string-append ",a PATT ARG..." (make-string 4 #\space)))
+
 ;rmvd ", raw, base [#]"
 (define-constant CSI-HELP-BODY
   "Apropos of PATT with ARG from ?, mac, split [nam|mod|#f], qual, ci, sort [nam|mod|typ|#f]")
 
-(define-constant CSI-HELP
-  (string-append ",a PATT ARG..." (make-string 4 #\space) CSI-HELP-BODY))
+(define-constant CSI-HELP (string-append CSI-HELP-HEAD CSI-HELP-BODY))
 
 (define-constant HELP-TEXT