lint: track define-like identifier usages

lint.rkt

@@ -716,17 +716,19 @@
            #:do [(pop-scope!)
                  (pop-scope!)])
 
-  (pattern (_:define-like
+  (pattern (define-id:define-like
             name:define-identifier
             ~!
-            e:expression ...+))
+            e:expression ...+)
+           #:do [(track-binding-usage! (format-binding "~a" #'define-id))])
 
-  (pattern (_:define-like
+  (pattern (define-id:define-like
             hdr:function-header
             ~!
             (~do (push-scope!))
             e:expression ...+)
-           #:do [(for ([_ (in-range (add1 (attribute hdr.depth)))])
+           #:do [(track-binding-usage! (format-binding "~a" #'define-id))
+                 (for ([_ (in-range (add1 (attribute hdr.depth)))])
                    (pop-scope!))]))
 
 (define-syntax-class root-module-path

tests/lint/define-syntax-rule.rkt

@@ -0,0 +1,11 @@
+#lang racket/base
+
+(require (for-syntax racket/base))
+
+(define-syntax-rule (define-keywords id ...)
+  (begin
+    (provide id ...)
+    (define-syntax (id stx)
+      (raise-syntax-error 'id "not allowed outside special form" stx)) ...))
+
+(define-keywords foo bar baz)

tests/lint/define-syntax-rule.rkt.out

@@ -0,0 +1 @@
+/define-syntax-rule.rkt:11:18:warning:identifier 'foo' is never used