29 Jan
2008
29 Jan
'08
00:05
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)