From 6dce7583ab8d5bc42dc90315664af395e9a4d3c7 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Sat, 29 Oct 2022 23:13:44 +0200
Subject: [PATCH] Fix the syntactic context.

https://racket.discourse.group/t/wrap-a-macro-injecting-bindings-in-another-macro/1406/2
---
 utils.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils.rkt b/utils.rkt
index 7477c4b..2ce6685 100644
--- a/utils.rkt
+++ b/utils.rkt
@@ -126,7 +126,7 @@
      (define colons (collect-colons (syntax->datum stx)))
      (define bindings (for/list ([key colons])
                         `[,key (hash-ref ,#'ht ',(strip-colon key))]))
-     (with-syntax ([bindings-stx (datum->syntax stx bindings)])
+     (with-syntax ([bindings-stx (datum->syntax #'ht bindings)])
        #'(let bindings-stx body))]))
 
 (module+ test