From 5e74217c7cf07ad474cdce1a01e049492e7ef1b7 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Tue, 4 Feb 2014 12:08:48 -0500 Subject: [PATCH] REPL Server: Redirect warnings to client socket. * module/system/repl/server.scm (serve-client): Use parameterize. Redirect warnings to client socket. --- module/system/repl/server.scm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/module/system/repl/server.scm b/module/system/repl/server.scm index 2df7564ac..bbabaef38 100644 --- a/module/system/repl/server.scm +++ b/module/system/repl/server.scm @@ -1,6 +1,6 @@ ;;; 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 ;; modify it under the terms of the GNU Lesser General Public @@ -104,12 +104,10 @@ (define (serve-client client addr) (with-continuation-barrier (lambda () - (with-input-from-port client - (lambda () - (with-output-to-port client - (lambda () - (with-error-to-port client - (lambda () - (with-fluids ((*repl-stack* '())) - (start-repl)))))))))) + (parameterize ((current-input-port client) + (current-output-port client) + (current-error-port client) + (current-warning-port client)) + (with-fluids ((*repl-stack* '())) + (start-repl))))) (close-socket! client)) -- 2.20.1