From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 19 Dec 2021 01:36:20 +0000 (-0800)
Subject: classes.struct: can't use (struct) in boa>object.
X-Git-Tag: 0.99~2192
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=48b6d17e13356c772e9a7dea6072d5c37b152ea9

classes.struct: can't use (struct) in boa>object.
---

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