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

Use scheme-exit-now instead of exit.

This commit is contained in:
mainzelm 2001-11-21 14:20:16 +00:00
parent 9ea85ca468
commit d7f602982e
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scsh/scsh-package.scm
View File

@ -316,6 +316,7 @@
; with-current-output-port exit ; with-current-output-port exit
scsh-level-0-internals ; set-command-line-args! init-scsh-vars scsh-level-0-internals ; set-command-line-args! init-scsh-vars
threads threads
root-scheduler ; scheme-exit-now
scheme) scheme)
(files top meta-arg)) (files top meta-arg))

13
scsh/top.scm
View File

@ -275,18 +275,17 @@
(in-package (user-environment) '()))))) (in-package (user-environment) '())))))
((eq? term-switch 'c) ((eq? term-switch 'c)
(eval (read-exactly-one-sexp-from-string term-val) (scheme-exit-now
(interaction-environment)) (eval (read-exactly-one-sexp-from-string term-val)
(exit 0)) (interaction-environment)))) )
(top-entry ; There was a -e <entry>. (top-entry ; There was a -e <entry>.
((eval top-entry (interaction-environment)) (scheme-exit-now ((eval top-entry (interaction-environment))
(command-line)) (command-line))))
(exit 0))
;; Otherwise, the script executed as it loaded, ;; Otherwise, the script executed as it loaded,
;; so we're done. ;; so we're done.
(else (exit 0))))))))))))) (else (scheme-exit-now 0))))))))))))