From 29b1d1b0a992eac4f62681560c7b92c7a9e9ec83 Mon Sep 17 00:00:00 2001 From: Martin Gasbichler Date: Wed, 26 Feb 2003 15:31:33 +0000 Subject: [PATCH] Rename to socket<->stdports Use close-socket --- scsh/interaction/interfaces.scm | 2 +- scsh/interaction/socket2stdport.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scsh/interaction/interfaces.scm b/scsh/interaction/interfaces.scm index 4e0124e..4f4f023 100644 --- a/scsh/interaction/interfaces.scm +++ b/scsh/interaction/interfaces.scm @@ -6,4 +6,4 @@ (export with-inspecting-handler)) (define-interface socket2stdports-interface - (export socket<->std-ports)) + (export socket<->stdports)) diff --git a/scsh/interaction/socket2stdport.scm b/scsh/interaction/socket2stdport.scm index bbe9f9a..638710c 100644 --- a/scsh/interaction/socket2stdport.scm +++ b/scsh/interaction/socket2stdport.scm @@ -4,7 +4,7 @@ ;;; For copyright information, see the file COPYING which comes with ;;; the distribution. -(define (socket<->std-ports host port) +(define (socket<->stdports host port) (let ((s (socket-connect protocol-family/internet socket-type/stream host port))) (set-port-buffering (socket:outport s) bufpol/none) (set-port-buffering (socket:inport s) bufpol/none) @@ -20,7 +20,7 @@ (lambda () (dup-port (current-input-port) (socket:outport s))) (lambda () - (close s))))) + (close-socket s))))) (define (dup-port from to)