rename cml-fork-collecting to cml-fork/collecting

This commit is contained in:
jottbee 2005-03-12 18:56:53 +00:00
parent 80fc7c2dae
commit 93609c80fd
1 changed files with 2 additions and 2 deletions

View File

@ -44,7 +44,7 @@
(let ((exitno (wait process))) (let ((exitno (wait process)))
(cml-sync-ch/send ch (append (list exitno) (cml-sync-ch/send ch (append (list exitno)
(map port->string read-ports))))) (map port->string read-ports)))))
(format #t "cml-fork-collecting: waiting (for ~a)\n" (proc:pid process))) (format #t "cml-fork/collecting: waiting (for ~a)\n" (proc:pid process)))
(spawn (spawn
(lambda () (lambda ()
@ -56,7 +56,7 @@
(loop))))) (loop)))))
(cml-rv/wrap proc-done-rv (cml-rv/wrap proc-done-rv
(lambda (res) (cml-sync-ch/send res-ch res)))))) (lambda (res) (cml-sync-ch/send res-ch res))))))
(format #t "cml-fork-collecting: signals (for ~a)\n" (proc:pid process))) (format #t "cml-fork/collecting: signals (for ~a)\n" (proc:pid process)))
(for-each close-output-port write-ports) (for-each close-output-port write-ports)
(cml-sync-ch/receive-rv res-ch))) (cml-sync-ch/receive-rv res-ch)))