From 0740cb7bcccc2eedcf1ace661c5c58da93d07083 Mon Sep 17 00:00:00 2001
From: Joe Thornber <ejt@redhat.com>
Date: Thu, 24 Aug 2017 14:09:23 +0100
Subject: [PATCH] [functional-tests] fluid-let is already in (chezscheme)

---
 functional-tests/utils.scm | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/functional-tests/utils.scm b/functional-tests/utils.scm
index d50358b..c47b43b 100644
--- a/functional-tests/utils.scm
+++ b/functional-tests/utils.scm
@@ -2,8 +2,7 @@
   (utils)
   (export inc!
           dec!
-          swap!
-          fluid-let)
+          swap!)
   (import (rnrs))
 
   (define-syntax inc!
@@ -22,16 +21,4 @@
        (let ((tmp x))
         (set! x y)
         (set! y tmp)))))
-
-  (define-syntax fluid-let
-    (syntax-rules ()
-      ((_ ((x e)) b1 b2 ...)
-       (let ((y e))
-        (let ((swap (lambda ()
-                      (let ((t x))
-                       (set! x y)
-                       (set! y t)))))
-          (dynamic-wind swap (lambda ()
-                               b1 b2 ...)
-                        swap))))))
   )