From 48b6d17e13356c772e9a7dea6072d5c37b152ea9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 18 Dec 2021 17:36:20 -0800
Subject: [PATCH] classes.struct: can't use (struct) in boa>object.

---
 basis/classes/struct/struct.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 4304cd898c..9ec9d0ad9b 100644
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -131,7 +131,7 @@ MACRO: <struct-boa> ( class -- quot: ( ... -- struct ) )
 
 M: struct-class boa>object
     swap pad-struct-slots
-    [ (struct) ] [ struct-slots ] bi
+    [ <struct> ] [ struct-slots ] bi
     [ [ (writer-quot) call( value struct -- ) ] with 2each ] keepd ;
 
 M: struct-class initial-value* <struct> t ; inline
-- 
2.34.1