scsh-conservatory
/
scsh-make
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed garbage

This commit is contained in:
jottbee 2005-03-12 09:33:27 +00:00
parent b3f20e6ed0
commit 6de4a10698
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
jobd.scm
View File

@ -76,10 +76,8 @@
(loop)))) (loop))))
(format #t "jobber (no. ~a)\n" id))) (format #t "jobber (no. ~a)\n" id)))
(define jobd-vers "jobd-0.0.1")
(define (make-jobd . maybe-args) (define (make-jobd . maybe-args)
(let-optionals maybe-args ((jobd-vers "jobd-0.0.1")) (let-optionals maybe-args ((jobd-vers "jobd-version"))
(let* ((version jobd-vers) (let* ((version jobd-vers)
(job-ch (cml-async-ch/make-async-channel)) (job-ch (cml-async-ch/make-async-channel))
(sig-m-ch (cml-mcast-ch/make-mcast-channel)) (sig-m-ch (cml-mcast-ch/make-mcast-channel))