This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=8a114e1b54d1711a6edfad1f8c78f54db7b8e157 The branch, stable-2.0 has been updated via 8a114e1b54d1711a6edfad1f8c78f54db7b8e157 (commit) via 5e74217c7cf07ad474cdce1a01e049492e7ef1b7 (commit) from c8e839cfeb647aca034b9bcd5a321d419dedca1f (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 8a114e1b54d1711a6edfad1f8c78f54db7b8e157 Author: Mark H Weaver <[email protected]> Date: Tue Feb 4 14:21:13 2014 -0500 REPL Server: Remove unneeded error case in 'run-server'. * module/system/repl/server.scm (run-server): Remove case that handled 'interrupt' exceptions specially. It is no longer needed since e6c8e6047ed2e772cc4e1fb5ad4d389e5c616feb (REPL Server: Don't establish a SIGINT handler.) commit 5e74217c7cf07ad474cdce1a01e049492e7ef1b7 Author: Mark H Weaver <[email protected]> Date: Tue Feb 4 12:08:48 2014 -0500 REPL Server: Redirect warnings to client socket. * module/system/repl/server.scm (serve-client): Use parameterize. Redirect warnings to client socket. ----------------------------------------------------------------------- Summary of changes: module/system/repl/server.scm | 20 +++++++------------- 1 files changed, 7 insertions(+), 13 deletions(-) diff --git a/module/system/repl/server.scm b/module/system/repl/server.scm index 2df7564..4f3391c 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 @@ -76,10 +76,6 @@ ((port-closed? server-socket) ;; Shutting down. #f) - ((eq? k 'interrupt) - ;; Interrupt. - (close-socket! server-socket) - #f) (else (warn "Error accepting client" k args) ;; Retry after a timeout. @@ -104,12 +100,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)) hooks/post-receive -- GNU Guile
