Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / basis / core-graphics / types / types.factor

diff --git a/basis/core-graphics/types/types.factor b/basis/core-graphics/types/types.factor
index a1e9b1dc9a1655f7d0e98cee3ee8c70e65de566a..587154fb2f64abba4800fc4ff0b6cd26178dd860 100644 (file)
--- a/basis/core-graphics/types/types.factor
+++ b/basis/core-graphics/types/types.factor
@@ -53,13 +53,13 @@ STRUCT: CGRect
     size>> h>> ; inline
 
 : set-CGRect-x ( x CGRect -- )
-    origin>> (>>x) ; inline
+    origin>> x<< ; inline
 : set-CGRect-y ( y CGRect -- )
-    origin>> (>>y) ; inline
+    origin>> y<< ; inline
 : set-CGRect-w ( w CGRect -- )
-    size>> (>>w) ; inline
+    size>> w<< ; inline
 : set-CGRect-h ( h CGRect -- )
-    size>> (>>h) ; inline
+    size>> h<< ; inline
 
 : <CGRect> ( x y w h -- rect )
     [ CGPoint <struct-boa> ] [ CGSize <struct-boa> ] 2bi*