From 7cbac58da11cc79cb7473711b141f5dfd00c04b8 Mon Sep 17 00:00:00 2001
From: mehbark <terezi@pyrope.net>
Date: Mon, 24 Feb 2025 11:42:53 -0500
Subject: [PATCH] fix: rename `define-record-matcher!` to `-pattern!`
it's just more accurate
---
record.sls | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/record.sls b/record.sls
index 015a863..9f93d87 100644
--- a/record.sls
+++ b/record.sls
@@ -22,7 +22,7 @@
(begin (define-record-equality! name)
(define-record-equality! name*) ...)]))
-(define-syntax define-record-matcher!
+(define-syntax define-record-pattern!
(syntax-rules ()
[(_ record-type-name)
(define-pattern record-type-name
@@ -37,6 +37,6 @@
(access (record-accessor rtd idx*) pat*)
(... ...)))])))]
[(_ name name* ...)
- (begin (define-record-matcher! name)
- (define-record-matcher! name*) ...)]))
+ (begin (define-record-pattern! name)
+ (define-record-pattern! name*) ...)]))
)