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

Fix duplicate removal of with-fluids.

Browse source 
Based on a patch by David Kastrup <dak@gnu.org>.
Fixes <http://bugs.gnu.org/13838>.

* libguile/fluids.c (scm_i_make_with_fluids): Remove the duplicate
  binding instead of the last binding.

* test-suite/tests/fluids.test: Add test, and fix existing duplicate
  tests.

* THANKS: Thanks David Kastrup.
This commit is contained in:
Mark H Weaver 2013-02-28 06:26:22 -05:00
parent 5ccc3764b3
commit b8d8f8b929
3 changed files with 27 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

30
test-suite/tests/fluids.test
View file

@ -18,7 +18,8 @@
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
(define-module (test-suite test-fluids)
:use-module (test-suite lib))
:use-module (test-suite lib)
:use-module (system base compile))
(define exception:syntax-error
@ -78,16 +79,29 @@
(not (fluid-ref a))))))
(with-test-prefix "with-fluids with duplicate fluid"
;; These tests must be compiled, because the evaluator
;; effectively transforms (with-fluids ((a 1) (b 2)) ...)
;; into (with-fluids ((a 1)) (with-fluids ((b 2)) ...))
(pass-if "last value wins"
(with-fluids ((a 1)
(a 2))
(eqv? (fluid-ref a) 2)))
(compile '(with-fluids ((a 1)
(a 2))
(eqv? (fluid-ref a) 2))
#:env (current-module)))
(pass-if "remove the duplicate, not the last binding"
(compile '(with-fluids ((a 1)
(a 2)
(b 3))
(eqv? (fluid-ref b) 3))
#:env (current-module)))
(pass-if "original value restored"
(and (with-fluids ((a 1)
(a 2))
(eqv? (fluid-ref a) 2))
(eqv? (fluid-ref a) #f))))
(compile '(and (with-fluids ((a 1)
(a 2))
(eqv? (fluid-ref a) 2))
(eqv? (fluid-ref a) #f))
#:env (current-module))))
(pass-if "fluid values are thread-local"
(if (provided? 'threads)