summaryrefslogtreecommitdiff
path: root/modules/language/python/spec.scm
diff options
context:
space:
mode:
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>2017-09-11 22:51:29 +0200
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>2017-09-11 22:51:29 +0200
commit992a575254a29a1cfa759b8f2914d2a3b2593414 (patch)
treeabc2202d1da065c032850202e1aff819944efcc4 /modules/language/python/spec.scm
parent9c826b5c4a083c5a3890237c1fec2ec3f6ab1aa9 (diff)
try works
Diffstat (limited to 'modules/language/python/spec.scm')
-rw-r--r--modules/language/python/spec.scm32
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)))