() Tristan Colgate <[email protected]>
() Thu, 23 Feb 2012 14:26:28 +0000
Comments very welcome:
(let* ((read-pipe (pipe))
(read-in (car read-pipe))
(read-out (cdr read-pipe))
You might try SRFI 1 ‘car+cdr’ for this (and also for the write side)
in conjunction w/ SRFI 11 ‘let-values’, to improve code readability.
(if (= child-pid 0)
You can use ‘zero?’ here. Small nit: ‘child-pid’
as a variable name is misleading; better simply ‘pid’.
(apply execlp (append (list cmd) (append (list cmd) args)))
This can be simplified to ‘(apply execlp cmd cmd args)’,
Also, i would add ‘(exit #f)’ afterwards, to appease Murphy.
