mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

updates to system repl command

Browse source 
* module/system/repl/command.scm (help): Update docs on how to get help
  on a particular command.
  (load): Remove #:f flag.
This commit is contained in:
Andy Wingo 2010-07-16 11:50:59 +02:00
parent 720a91c131
commit 019fdc97d9
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/system/repl/command.scm
View file

@ -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