diff options
author | Andy Wingo <wingo@pobox.com> | 2010-07-16 11:50:59 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-07-16 17:35:43 +0200 |
commit | 019fdc97d9214e162a274c13011b823673f75a8b (patch) | |
tree | b153b85bee30a0866e02743af1ac0bfc895865f0 | |
parent | 720a91c131d0f4bb5300a865130ca9a1c2afde2c (diff) | |
download | guile-019fdc97d9214e162a274c13011b823673f75a8b.tar.gz |
updates to system repl command
* module/system/repl/command.scm (help): Update docs on how to get help
on a particular command.
(load): Remove #:f flag.
-rw-r--r-- | module/system/repl/command.scm | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index 1beaf31d9..8a62a1612 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -232,7 +232,8 @@ are displayed." (display-summary usage #f header))) (cdr *command-table*)) (newline) - (display "Type `,COMMAND -h' to show documentation of each command.") + (display + "Type `,help -c COMMAND' to show documentation of a particular command.") (newline)) ((all) (for-each display-group *command-table*)) @@ -347,15 +348,10 @@ Import modules / List those imported." (for-each use args)))) (define guile:load load) -(define-meta-command (load repl file . opts) +(define-meta-command (load repl file) "load FILE -Load a file in the current module. - - -f Load source file (see `compile')" - (let ((file (->string file))) - (if (memq #:f opts) - (primitive-load file) - (guile:load file)))) +Load a file in the current module." + (guile:load (->string file))) (define-meta-command (binding repl) "binding |