diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-10-10 19:09:20 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-10-10 19:10:11 +0200 |
commit | 08002eae4d8a9c0d36c2c4b53d4ec37c2d24a951 (patch) | |
tree | 58bcc701f5ebfa4c0d6fc5f0f9b613f47ef189b3 /module/system/repl/command.scm | |
parent | 8e6c15a6f0425c7891ab3bdf267d56c1ac5804ae (diff) | |
download | guile-08002eae4d8a9c0d36c2c4b53d4ec37c2d24a951.tar.gz |
Fix typo.
* module/system/repl/command.scm (repl-pop-continuation-resumer): Remove
extraneous argument to `format'.
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r-- | module/system/repl/command.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm index f5512ffeb..ef2c5a633 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -612,9 +612,9 @@ Note that the given source location must be inside a procedure." (format #t "~a~%" msg) (let ((vals (frame-return-values from))) (if (null? vals) - (format #t "No return values.~%" msg) + (format #t "No return values.~%") (begin - (format #t "Return values:~%" msg) + (format #t "Return values:~%") (for-each (lambda (x) (repl-print repl x)) vals)))) ((module-ref (resolve-interface '(system repl repl)) 'start-repl) #:debug (make-debug stack 0 msg)))))) |