scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rename to socket<->stdports 

Use close-socket
This commit is contained in:
Martin Gasbichler 2003-02-26 15:31:33 +00:00
parent 9bc5c4e742
commit 29b1d1b0a9
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/interaction/interfaces.scm
View File

@ -6,4 +6,4 @@
(export with-inspecting-handler)) (export with-inspecting-handler))
(define-interface socket2stdports-interface (define-interface socket2stdports-interface
(export socket<->std-ports)) (export socket<->stdports))

4
scsh/interaction/socket2stdport.scm
View File

@ -4,7 +4,7 @@
;;; For copyright information, see the file COPYING which comes with ;;; For copyright information, see the file COPYING which comes with
;;; the distribution. ;;; 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))) (let ((s (socket-connect protocol-family/internet socket-type/stream host port)))
(set-port-buffering (socket:outport s) bufpol/none) (set-port-buffering (socket:outport s) bufpol/none)
(set-port-buffering (socket:inport s) bufpol/none) (set-port-buffering (socket:inport s) bufpol/none)
@ -20,7 +20,7 @@
(lambda () (lambda ()
(dup-port (current-input-port) (socket:outport s))) (dup-port (current-input-port) (socket:outport s)))
(lambda () (lambda ()
(close s))))) (close-socket s)))))
(define (dup-port from to) (define (dup-port from to)