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)