diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 15:40:15 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 15:40:15 +0200 |
commit | 8f2cd195e18f7c26345dfd701216affcd1fdbcd6 (patch) | |
tree | a497d0f9231db1d86c2ca096668e37e69ff33007 /module/main.scm | |
parent | Extend and document benchmark main. (diff) | |
download | calp-8f2cd195e18f7c26345dfd701216affcd1fdbcd6.tar.gz calp-8f2cd195e18f7c26345dfd701216affcd1fdbcd6.tar.xz |
Remove *TOP* tags from descriptions.
Diffstat (limited to 'module/main.scm')
-rw-r--r-- | module/main.scm | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/module/main.scm b/module/main.scm index 8332f566..3f5397ad 100644 --- a/module/main.scm +++ b/module/main.scm @@ -38,16 +38,16 @@ (define options '((statprof (value display-style) - (description (*TOP* "Run the program within Guile's built in statical " - "profiler. Display style is one of " - (b "flat") " or " (b "tree") "."))) + (description "Run the program within Guile's built in statical " + "profiler. Display style is one of " + (b "flat") " or " (b "tree") ".")) (repl (value address) (description - (*TOP* "Start a Guile repl which can be connected to, defaults to the unix socket " - (i "/run/user/${UID}/calp-${PID}") ", but it can be bound to any unix or " - "TCP socket. ((@ (util app) current-app)) should return the current app context." - (br) - (b "Should NOT be used in production.")))) + "Start a Guile repl which can be connected to, defaults to the unix socket " + (i "/run/user/${UID}/calp-${PID}") ", but it can be bound to any unix or " + "TCP socket. ((@ (util app) current-app)) should return the current app context." + (br) + (b "Should NOT be used in production."))) ;; Techical note: ;; Guile's getopt doesn't support repeating keys. Thereby the small jank, @@ -55,13 +55,12 @@ (option (single-char #\o) (value #t) (description - (*TOP* - "Set configuration options, on the form " - (i "key") "=" (i "value") - " as if they were set in the config file. These options have " - "priority over those from the file. " - "Can " (i "not") " be given with an equal after --option." - (br) "Can be given multiple times."))) + "Set configuration options, on the form " + (i "key") "=" (i "value") + " as if they were set in the config file. These options have " + "priority over those from the file. " + "Can " (i "not") " be given with an equal after --option." + (br) "Can be given multiple times.")) (help (single-char #\h) (description "Print this help")))) |