[functional-tests] add dlambda to utils

2017-09-04 12:31:39 +01:00 · 2017-09-04 12:31:39 +01:00 · c70aad52e6
commit c70aad52e6
parent c2b5730d6b
1 changed files with 9 additions and 1 deletions
--- 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)))))
  )