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

[factor.git] / basis / ui / clipboards / clipboards.factor

diff --git a/basis/ui/clipboards/clipboards.factor b/basis/ui/clipboards/clipboards.factor
index 42c3f6ddef79a0ce77639b42cf8a69d0ba1915d5..ec7bb5993151b62a1117f152b4d617a0ceccbd8b 100644 (file)
--- a/basis/ui/clipboards/clipboards.factor
+++ b/basis/ui/clipboards/clipboards.factor
@@ -15,7 +15,7 @@ GENERIC: set-clipboard-contents ( string clipboard -- )
 
 M: clipboard clipboard-contents contents>> ;
 
-M: clipboard set-clipboard-contents (>>contents) ;
+M: clipboard set-clipboard-contents contents<< ;
 
 : <clipboard> ( -- clipboard ) "" clipboard boa ;