From 5a298f0550cf6eab5b8be7784d3f76695cf59bec Mon Sep 17 00:00:00 2001
From: Jakob L. Kreuze
Date: Fri, 10 Jul 2026 15:21:38 -0400
Subject: Passing a string as a type-name to make-record-type is deprecated.

---
 tests/struct.scm | 2 ++
 weeb/struct.scm  | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/struct.scm b/tests/struct.scm
index dcc6770..7662fed 100644
--- a/tests/struct.scm
+++ b/tests/struct.scm
@@ -1,6 +1,8 @@
 (use-modules (srfi srfi-64)
              (weeb struct))
 
+(test-runner-current (test-runner-simple))
+
 (test-begin "weeb-struct")
 
 (test-group "instantiation"
diff --git a/weeb/struct.scm b/weeb/struct.scm
index 65fa2ab..1f14d94 100644
--- a/weeb/struct.scm
+++ b/weeb/struct.scm
@@ -33,7 +33,7 @@
            (let* ((type-string (symbol->string (quote name)))
                   (type-representation (match:substring
                                         (string-match "[^<> ]+" type-string))))
-             (make-record-type (symbol->string (quote name))
+             (make-record-type (quote name)
                                (quote (field* ...)))))))))
 
 (define (make-struct type . args)
-- 
cgit v1.3