Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing repl output for non-current-output-port out

Browse source
This commit is contained in:
Alex Shinn 2012-05-06 18:47:41 +09:00
parent 532665b86d
commit ee65dad0b3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/repl.scm
View file

@ -1,5 +1,5 @@
;; repl.scm - friendlier repl with line editing and signal handling ;; repl.scm - friendlier repl with line editing and signal handling
;; Copyright (c) 2011 Alex Shinn. All rights reserved. ;; Copyright (c) 2012 Alex Shinn. All rights reserved.
;; BSD-style license: http://synthcode.com/license.txt ;; BSD-style license: http://synthcode.com/license.txt
;;> A user-friendly REPL with line editing and signal handling. ;;> A user-friendly REPL with line editing and signal handling.
@ -219,8 +219,8 @@
(let ((res (eval expr env))) (let ((res (eval expr env)))
(cond (cond
((not (eq? res (if #f #f))) ((not (eq? res (if #f #f)))
(write/ss res) (write/ss res out)
(newline))))))))) (newline out)))))))))
;; If an interrupt occurs while the child thread is ;; If an interrupt occurs while the child thread is
;; still running, terminate it, otherwise wait for it ;; still running, terminate it, otherwise wait for it
;; to complete. ;; to complete.