summaryrefslogtreecommitdiff
path: root/module/system/repl/command.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-07-09 18:22:08 +0200
committerAndy Wingo <wingo@pobox.com>2010-07-09 18:22:08 +0200
commit3ae78d95e62e36078bb86e22450f2e7830ea2ddf (patch)
treee0e230323c026e4a91c099c3638adc40c16ee53e /module/system/repl/command.scm
parent33df2ec719d281c70a5c7595dceee9f47770e910 (diff)
downloadguile-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.scm2
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)