Port concurrent-widgets.factor to 0.83

diff --git a/contrib/x11/concurrent-widgets.factor b/contrib/x11/concurrent-widgets.factor
index a16b5edf543a963e17de847d4a90d3364fcd4296..aeccc70badd9d6a972e96ecb890e10c57bb1c3a6 100644 (file)
--- a/contrib/x11/concurrent-widgets.factor
+++ b/contrib/x11/concurrent-widgets.factor
@@ -1,5 +1,5 @@
 USING: io namespaces kernel hashtables math generic threads concurrency
-lists sequences arrays x11 x ;
+ sequences arrays x11 x ;
 
 IN: concurrent-widgets
 
@@ -215,7 +215,7 @@ TUPLE: menu item-width item-height space ;
   refresh-menu ;
 
 : modify-action-to-unmap ( action menu -- action )
-  [ unmap-window% ] cons append ;
+  [ unmap-window% ] curry append ;
 
 : add-popup-menu-item ( text action menu -- )
   tuck modify-action-to-unmap