[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-184-g8a114e1

[Mark H Weaver]

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 <address@hidden>
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 <address@hidden>
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