[klm@kth cube-server]$ cat process-control.scm 
(use posix srfi-18 miscmacros)

;; we can kill process with close-*-port:
(define (tiger-dance)
  (receive (pip pop pid) (process "cat" '())
    (display "hello\n" pop)
    (print "read: " (read-line pip))
    (close-input-port pip)
    (close-output-port pop)
    (print "done")))


;; but that causes strange 'bugs'?
;; this hangs:
(repeat 3 (thread-start! tiger-dance))

(thread-sleep! 0.1)
(print "we're done")
;;(print (read-line))





[klm@kth cube-server]$ csi -s process-control.scm 
read: hello

^C
Warning (#<thread: thread32>): in thread: (process) abnormal process exit
9509
2

	Call history:

	<eval>	  [tiger-dance] (process "cat" (quote ()))
	<eval>	  [tiger-dance] (display "hello\n" pop)
	<eval>	  [tiger-dance] (print "read: " (read-line pip))
	<eval>	  [tiger-dance] (read-line pip)
	<eval>	  [tiger-dance] (close-input-port pip)
	<eval>	  [tiger-dance] (close-output-port pop)	<--

*** user interrupt ***