1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- (define-module (scheme process-context)
- #:use-module (srfi srfi-98)
- #:re-export (command-line
- get-environment-variable
- get-environment-variables)
- #:export (emergency-exit
- (r7:exit . exit)))
- (define (translate-status status)
- (case status
- ((#t) 0)
- ((#f) 1)
- (else status)))
- (define r7:exit
- (case-lambda
- (()
- (exit))
- ((status)
- (exit (translate-status status)))))
- (define emergency-exit
- (case-lambda
- (()
- (primitive-_exit))
- ((status)
- (primitive-_exit (translate-status status)))))
|