removed debug-infos and added installing of signal, process and env system
This commit is contained in:
parent
abc5901c5d
commit
85cff767c0
11
scsh/top.scm
11
scsh/top.scm
|
@ -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!
|
||||
|
|
Loading…
Reference in New Issue