classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / basis / cocoa / messages / messages.factor

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 780e7717b7c298587330e2362b7f705e0265be0c..b4a608aa5b66e900320a90c576b848537e4e8616 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -40,7 +40,7 @@ super-message-senders [ H{ } clone ] initialize
 
 : <super> ( receiver -- super )
     [ ] [ object_getClass class_getSuperclass ] bi
-    objc-super <struct-boa> ;
+    objc-super boa ;
 
 TUPLE: selector-tuple name object ;