mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

REPL Server: Redirect warnings to client socket.

Browse source 
* module/system/repl/server.scm (serve-client): Use parameterize.
  Redirect warnings to client socket.
This commit is contained in:
Mark H Weaver 2014-02-04 12:08:48 -05:00
parent c8e839cfeb
commit 5e74217c7c
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
;;; Repl server ;;; Repl server
;; Copyright (C) 2003, 2010, 2011 Free Software Foundation, Inc. ;; Copyright (C) 2003, 2010, 2011, 2014 Free Software Foundation, Inc.
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -104,12 +104,10 @@
(define (serve-client client addr) (define (serve-client client addr)
(with-continuation-barrier (with-continuation-barrier
(lambda () (lambda ()
(with-input-from-port client (parameterize ((current-input-port client)
(lambda () (current-output-port client)
(with-output-to-port client (current-error-port client)
(lambda () (current-warning-port client))
(with-error-to-port client
(lambda ()
(with-fluids ((*repl-stack* '())) (with-fluids ((*repl-stack* '()))
(start-repl)))))))))) (start-repl)))))
(close-socket! client)) (close-socket! client))