Re: Support for (system '("echo" "foo" "bar"))

[Paul Jarc]

I wrote:
> (define (system*/ignore-signals . args)
>   (let* ((pid (apply system*/nowait args))
>          (old-int  (sigaction SIGINT  SIG_IGN))
>          (old-quit (sigaction SIGQUIT SIG_IGN))
>          (status (cdr (waitpid (apply system*/nowait args)))))
>     (sigaction SIGINT  (car old-int)  (cdr old-int))
>     (sigaction SIGQUIT (car old-quit) (cdr old-quit))
>     status))

Oops.  That should, of course, be:
(define (system*/ignore-signals . args)
  (let* ((pid (apply system*/nowait args))
         (old-int  (sigaction SIGINT  SIG_IGN))
         (old-quit (sigaction SIGQUIT SIG_IGN))
         (status (cdr (waitpid pid))))
    (sigaction SIGINT  (car old-int)  (cdr old-int))
    (sigaction SIGQUIT (car old-quit) (cdr old-quit))
    status))


paul