From 17dc59c4059ab7bec8dc95ab9ee398aab7c6ce03 Mon Sep 17 00:00:00 2001
From: Jack Firth <jackhfirth@gmail.com>
Date: Tue, 24 Sep 2024 23:15:09 -0700
Subject: [PATCH] Add `defmacro` to list of definition context forms

Closes #327.
---
 .../private/definition-context.rkt            | 39 +++----------------
 info.rkt                                      |  3 +-
 2 files changed, 7 insertions(+), 35 deletions(-)

diff --git a/default-recommendations/private/definition-context.rkt b/default-recommendations/private/definition-context.rkt
index e13a233..efdcc7c 100644
--- a/default-recommendations/private/definition-context.rkt
+++ b/default-recommendations/private/definition-context.rkt
@@ -6,6 +6,7 @@
 
 
 (require (for-syntax racket/base)
+         compatibility/defmacro
          racket/block
          racket/match
          rebellion/private/static-name
@@ -31,39 +32,9 @@
 
 (define-splicing-syntax-class header-form-allowing-internal-definitions
   #:attributes ([original 1])
-  #:literals (block
-              let
-              let*
-              let-values
-              let*-values
-              when
-              unless
-              with-handlers
-              parameterize
-              for
-              for/list
+  #:literals (let
               for/vector
-              for/hash
-              for/hasheq
-              for/hasheqv
-              for/and
-              for/or
-              for/sum
-              for/product
-              for/first
-              for/last
-              for*
-              for*/list
-              for*/vector
-              for*/hash
-              for*/hasheq
-              for*/hasheqv
-              for*/and
-              for*/or
-              for*/sum
-              for*/product
-              for*/first
-              for*/last)
+              for*/vector)
 
   (pattern (~seq id:header-id-with-no-header-forms)
     #:with (original ...) #'(id))
@@ -167,8 +138,8 @@
 
 
 (define-syntax-class header-id-with-two-header-forms
-  #:literals (for/fold for*/fold)
-  (pattern (~or for/fold for*/fold)))
+  #:literals (defmacro for/fold for*/fold)
+  (pattern (~or defmacro for/fold for*/fold)))
 
 
 (define-splicing-syntax-class branching-form-allowing-internal-definitions-within-clauses
diff --git a/info.rkt b/info.rkt
index 2aef5a6..b09b64a 100644
--- a/info.rkt
+++ b/info.rkt
@@ -12,7 +12,8 @@
 
 
 (define deps
-  (list "base"
+  (list "compatibility-lib"
+        "base"
         "br-parser-tools-lib"
         "brag-lib"
         "fancy-app"