diff options
Diffstat (limited to 'modules/language/python/module/sys.scm')
| -rw-r--r-- | modules/language/python/module/sys.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/modules/language/python/module/sys.scm b/modules/language/python/module/sys.scm index d24b7e2..aa4a166 100644 --- a/modules/language/python/module/sys.scm +++ b/modules/language/python/module/sys.scm @@ -2,6 +2,7 @@ #:use-module (rnrs bytevectors) #:use-module (language python exceptions) #:use-module (language python hash) + #:use-module (language python compile) #:use-module (language python module io) #:use-module (language python try) #:use-module (language python string) @@ -94,8 +95,9 @@ (define executable "") (define exit (lambda (arg) - (raise (SystemException ((@ (guile) format) - #f "exit called with arg ~a" arg))))) + (if (fluid-ref exit-fluid) + (abort-to-prompt exit-prompt arg) + ((@ (guile) exit) arg)))) (define flags '()) (define float_info '()) |