From 5e0161b15e76a795d8ff8e98020a0da3f1314ff9 Mon Sep 17 00:00:00 2001 From: "wayo.cavazos" Date: Thu, 15 Jun 2006 22:41:05 +0000 Subject: [PATCH] Port concurrent-widgets.factor to 0.83 --- contrib/x11/concurrent-widgets.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/x11/concurrent-widgets.factor b/contrib/x11/concurrent-widgets.factor index a16b5edf54..aeccc70bad 100644 --- 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