mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Fix sandbox

Browse source 
* module/ice-9/sandbox.scm (eval-in-sandbox): Remove use of
  deprecated-and-now-removed allow-legacy-syntax-objects? parameter.
This commit is contained in:
Andy Wingo 2018-01-03 16:26:10 +01:00
parent afb0a92d50
commit 454f2eeb97
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/ice-9/sandbox.scm
View file

@ -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)))))