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

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 4304cd898c503b84e438b7e7a4ccee59c2c3e6c1..9ec9d0ad9b17c9c5dcf3808fb4128d8f5b1dc8d6 100644 (file)
--- 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