diff options
author | Andy Wingo <wingo@pobox.com> | 2010-07-09 18:22:08 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-07-09 18:22:08 +0200 |
commit | 3ae78d95e62e36078bb86e22450f2e7830ea2ddf (patch) | |
tree | e0e230323c026e4a91c099c3638adc40c16ee53e /module/system/repl/command.scm | |
parent | 33df2ec719d281c70a5c7595dceee9f47770e910 (diff) | |
download | guile-3ae78d95e62e36078bb86e22450f2e7830ea2ddf.tar.gz |
tweaks to new repl
* module/system/repl/command.scm (read-command): Remove a pk.
* module/system/repl/repl.scm (run-repl): Export. Use % and abort to
implement the prompt.
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r-- | module/system/repl/command.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index 7b092e634..bf8e0b268 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -128,7 +128,7 @@ (define (read-command repl) (catch #t - (lambda () (read (pk (repl-inport repl)))) + (lambda () (read (repl-inport repl))) (lambda (key . args) (pmatch args ((,subr ,msg ,args . ,rest) |