summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-07-16 11:50:59 +0200
committerAndy Wingo <wingo@pobox.com>2010-07-16 17:35:43 +0200
commit019fdc97d9214e162a274c13011b823673f75a8b (patch)
treeb153b85bee30a0866e02743af1ac0bfc895865f0
parent720a91c131d0f4bb5300a865130ca9a1c2afde2c (diff)
downloadguile-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.scm14
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