From 6181ade24da5eccf000237413cb4c558a60e4119 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Fri, 20 Mar 2015 00:01:12 -0700 Subject: [PATCH] Fix multiple scoped transformers --- generic-syntax-expanders/scoped-transformers.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/generic-syntax-expanders/scoped-transformers.rkt b/generic-syntax-expanders/scoped-transformers.rkt index 6f23fa3..0df1b1b 100644 --- a/generic-syntax-expanders/scoped-transformers.rkt +++ b/generic-syntax-expanders/scoped-transformers.rkt @@ -13,4 +13,6 @@ (match pre-transformer-lens-pairs ['() transformer] [(list (list stx-lens pre-transformer) rest ...) - (with-scoped-pre-transformers (with-scoped-pre-transformer stx-lens transformer) rest)])) + (define next-transformer + (with-scoped-pre-transformer transformer stx-lens transformer)) + (with-scoped-pre-transformers next-transformer rest)]))