scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scsh/top.scm
View File

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