[gambit-list] direction of a tcp object port?
Bob McIsaac
bobmc at fcibroadband.com
Tue Jan 29 00:05:43 EST 2008
Hi:
How does one alter the directionality of a tcp object port? It defaults
to input-port which results in an exception for a write form.
-Bob
(define *server-port* 5603)
(define (start-tcp)
(define sp (open-tcp-server
(list port-number: *server-port*
;;direction: input-output
)))
;;(port-settings-set! (list direction: 'input-output))
(if (port? sp)
(display "is-a-port\n")
(display "not-a-port\n"))
(if (input-port? sp)
(display "is-a-input-port\n"))
(if (output-port? sp)
(display "is-a-output-port\n"))
sp)
More information about the Gambit-list
mailing list