diff options
Diffstat (limited to 'module/ice-9/sandbox.scm')
-rw-r--r-- | module/ice-9/sandbox.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/module/ice-9/sandbox.scm b/module/ice-9/sandbox.scm index d25dc2d66..bbb811952 100644 --- a/module/ice-9/sandbox.scm +++ b/module/ice-9/sandbox.scm @@ -1,6 +1,6 @@ ;;; Sandboxed evaluation of Scheme code -;;; Copyright (C) 2017 Free Software Foundation, Inc. +;;; Copyright (C) 2017, 2018 Free Software Foundation, Inc. ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -260,10 +260,7 @@ allocation limit is exceeded, an exception will be thrown to the (call-with-time-and-allocation-limits time-limit allocation-limit (lambda () - ;; Prevent the expression from forging syntax objects. See "Syntax - ;; Transformer Helpers" in the manual. - (parameterize ((allow-legacy-syntax-objects? #f)) - (eval exp module))))) + (eval exp module)))) (lambda () (when sever-module? (sever-module! module))))) |