[functional-tests] add dlambda to utils

This commit is contained in:
Joe Thornber 2017-09-04 12:31:39 +01:00
parent c2b5730d6b
commit c70aad52e6

View File

@ -7,7 +7,8 @@
chomp chomp
hotpatch-sym hotpatch-sym
indirect-lambda indirect-lambda
set-lambda!) set-lambda!
dlambda)
(import (chezscheme) (import (chezscheme)
(only (srfi s1 lists) drop-while)) (only (srfi s1 lists) drop-while))
@ -59,4 +60,11 @@
(define (set-lambda! fn new-fn) (define (set-lambda! fn new-fn)
(fn hotpatch-sym 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)))))
) )