(define (handle-client c)
  ; ...
    (call/cc
      (lambda (close)
        (print (read-line (car c)))
        ;...
        )))

(define ircsocket (tcp-listen +port+ 1 "127.0.0.1"))
(define-values (i o) (tcp-accept ircsocket))
(handle-client (cons i o))


Error: segmentation violation

	<syntax>	  (##core#lambda (i62 o63) (##core#set! i i62) (##core#set! o o63))
	<syntax>	  (##core#begin (##core#set! i i62) (##core#set! o o63))
	<syntax>	  (##core#set! i i62)
	<syntax>	  (##core#set! o o63)
	<eval>	  (##sys#call-with-values (##core#lambda () (tcp-accept ircsocket)) (##core#lambda (i62 o63) (##core#s...
	<eval>	  (tcp-accept ircsocket)
	<syntax>	  (handle-client (client-create i o))
	<syntax>	  (client-create i o)
	<eval>	  (handle-client (client-create i o))
	<eval>	  (client-create i o)
	<eval>	  [client-create] (cons i o)
	<eval>	  [handle-client] (print (call/cc (lambda (close) (define capline (client-read-line c)) (define pass (cadr (string-spl...
	<eval>	  [handle-client] (call/cc (lambda (close) (define capline (client-read-line c)) (define pass (cadr (string-split (cli...
	<eval>	  [handle-client] (client-read-line c)
	<eval>	  [client-read-line] (read-line (car client))
	<eval>	  [client-read-line] (car client)	<--