removed debug-infos and added installing of signal, process and env system

This commit is contained in:
marting 1999-11-04 20:12:45 +00:00
parent abc5901c5d
commit 85cff767c0
1 changed files with 8 additions and 3 deletions

View File

@ -75,7 +75,7 @@
(switches '()) ; A list of handler thunks
(top-entry #f) ; -t <entry>
(need-script? #f)) ; Found a -ds or -dm?
(display args (current-output-port))
; (display args (current-output-port))
(if (pair? args)
(let ((arg (car args))
(args (cdr args)))
@ -153,7 +153,7 @@
(if (pair? switches)
(let ((switch (car switches))
(switches (cdr switches)))
(format #t "Doing switch ~a~%" switch)
; (format #t "Doing switch ~a~%" switch)
(cond
((equal? switch "-ds")
@ -235,7 +235,12 @@
(environment-for-commands)
(lambda ()
(begin
(init-scsh-signal)
(init-low-interrupt)
(install-event-handlers!)
(%install-scsh-handlers)
(install-autoreaping)
(install-env)
;; Have to do these before calling DO-SWITCHES, because actions
;; performed while processing the switches may use these guys.
(set-command-line-args!