removed garbage
This commit is contained in:
parent
b3f20e6ed0
commit
6de4a10698
4
jobd.scm
4
jobd.scm
|
@ -76,10 +76,8 @@
|
|||
(loop))))
|
||||
(format #t "jobber (no. ~a)\n" id)))
|
||||
|
||||
(define jobd-vers "jobd-0.0.1")
|
||||
|
||||
(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)
|
||||
(job-ch (cml-async-ch/make-async-channel))
|
||||
(sig-m-ch (cml-mcast-ch/make-mcast-channel))
|
||||
|
|
Loading…
Reference in New Issue