From 93609c80fdfde750ead25d8d0d38b2c39f326fe5 Mon Sep 17 00:00:00 2001 From: jottbee Date: Sat, 12 Mar 2005 18:56:53 +0000 Subject: [PATCH] rename cml-fork-collecting to cml-fork/collecting --- cml-pe.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cml-pe.scm b/cml-pe.scm index f6c88da..010ccc3 100644 --- a/cml-pe.scm +++ b/cml-pe.scm @@ -44,7 +44,7 @@ (let ((exitno (wait process))) (cml-sync-ch/send ch (append (list exitno) (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 (lambda () @@ -56,7 +56,7 @@ (loop))))) (cml-rv/wrap proc-done-rv (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) (cml-sync-ch/receive-rv res-ch)))