diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-11 22:51:29 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-11 22:51:29 +0200 |
commit | 992a575254a29a1cfa759b8f2914d2a3b2593414 (patch) | |
tree | abc2202d1da065c032850202e1aff819944efcc4 /modules/language/python/spec.scm | |
parent | 9c826b5c4a083c5a3890237c1fec2ec3f6ab1aa9 (diff) |
try works
Diffstat (limited to 'modules/language/python/spec.scm')
-rw-r--r-- | modules/language/python/spec.scm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/modules/language/python/spec.scm b/modules/language/python/spec.scm index c22c0b4..0cfb83a 100644 --- a/modules/language/python/spec.scm +++ b/modules/language/python/spec.scm @@ -36,19 +36,19 @@ #:evaluator (lambda (x module) (primitive-eval x)) #:printer write #:make-default-environment - (lambda () - ;; Ideally we'd duplicate the whole module hierarchy so that `set!', - ;; `fluid-set!', etc. don't have any effect in the current environment. - (let ((m (make-fresh-user-module))) - ;; Provide a separate `current-reader' fluid so that - ;; compile-time changes to `current-reader' are - ;; limited to the current compilation unit. - (module-define! m 'current-reader (make-fluid)) - - ;; Default to `simple-format', as is the case until - ;; (ice-9 format) is loaded. This allows - ;; compile-time warnings to be emitted when using - ;; unsupported options. - (module-set! m 'format simple-format) - - m))) + (lambda () + ;; Ideally we'd duplicate the whole module hierarchy so that `set!', + ;; `fluid-set!', etc. don't have any effect in the current environment. + (let ((m (make-fresh-user-module))) + ;; Provide a separate `current-reader' fluid so that + ;; compile-time changes to `current-reader' are + ;; limited to the current compilation unit. + (module-define! m 'current-reader (make-fluid)) + + ;; Default to `simple-format', as is the case until + ;; (ice-9 format) is loaded. This allows + ;; compile-time warnings to be emitted when using + ;; unsupported options. + (module-set! m 'format simple-format) + + m))) |