[functional tests] we can now walk both levels of the mapping tree.

2017-08-12 19:27:21 +01:00
parent 5e6ffbbd3a
commit b2355df719
4 changed files with 25 additions and 16 deletions
--- a/functional-tests/binary-format.scm
+++ b/functional-tests/binary-format.scm
@ -43,16 +43,16 @@
         #,gens)))))
 |#

-(define-syntax ordered-funcall
-  (lambda (x)
-    (syntax-case x ()
-       ((k f v ...)
-        (with-syntax
-          ([(t ...) (map (lambda (_)
-                           (datum->syntax #'k (gensym)))
-                         #'(v ...))])
-          #'(let* ([t v] ...)
-              (f t ...)))))))
+  (define-syntax ordered-funcall
+    (lambda (x)
+      (syntax-case x ()
+        ((k f v ...)
+         (with-syntax
+           ([(t ...) (map (lambda (_)
+                            (datum->syntax #'k (gensym)))
+                          #'(v ...))])
+           #'(let* ([t v] ...)
+               (f t ...)))))))

  (define-syntax binary-format-names
    (syntax-rules ()