From c70aad52e65e6a8e4db4b9bd0317aec3a7c54455 Mon Sep 17 00:00:00 2001
From: Joe Thornber <ejt@redhat.com>
Date: Mon, 4 Sep 2017 12:31:39 +0100
Subject: [PATCH] [functional-tests] add dlambda to utils

---
 functional-tests/utils.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/functional-tests/utils.scm b/functional-tests/utils.scm
index 7778fa7..1158429 100644
--- a/functional-tests/utils.scm
+++ b/functional-tests/utils.scm
@@ -7,7 +7,8 @@
           chomp
           hotpatch-sym
           indirect-lambda
-          set-lambda!)
+          set-lambda!
+          dlambda)
 
   (import (chezscheme)
           (only (srfi s1 lists) drop-while))
@@ -59,4 +60,11 @@
   (define (set-lambda! fn new-fn)
     (fn hotpatch-sym new-fn))
 
+  (define-syntax dlambda
+    (syntax-rules ()
+      ((_ (name params b1 b2 ...) ...)
+       (lambda (m . args)
+               (apply (case m
+                            [(name) (lambda params b1 b2 ...)] ...)
+                      args)))))
   )