picolisp

commit d0a2ef4a63d25752bec67e8b0d6244da7f3d4007
parent fb3a1c2b7efd5ef5395fa5a790e112ab34f715cb
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 19 Apr 2011 15:02:44 +0200

Child signal handler was accidentally called twice
Diffstat:
M
src64/main.l
 | 
7
++-----

1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 07apr11abu
+# 19apr11abu
 # (c) Software Lab. Alexander Burger
 
 (code 'Code 0)
@@ -136,10 +136,7 @@
    ld E sigTerm  # Install terminating signal handler for SIGINT
    ld C SIGINT
    call iSignalCE
-   ld E sigChld  # Install child signal handler for SIGCHLD
-   ld C SIGCHLD
-   call iSignalCE
-   cc signal(SIGCHLD sigChld)
+   cc signal(SIGCHLD sigChld)  # Install child signal handler for SIGCHLD
    cc signal(SIGPIPE SIG_IGN)  # Ignore signals
    cc signal(SIGTTIN SIG_IGN)
    cc signal(SIGTTOU SIG_IGN)