From 454f2eeb97bf3f28e3979615344ff845c4c91568 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 3 Jan 2018 16:26:10 +0100 Subject: [PATCH] Fix sandbox * module/ice-9/sandbox.scm (eval-in-sandbox): Remove use of deprecated-and-now-removed allow-legacy-syntax-objects? parameter. --- module/ice-9/sandbox.scm | 7 ++----- 1 file 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)))))