Clean up a bit

diff --git a/basis/ui/windows/windows.factor b/basis/ui/windows/windows.factor
index cb63833eddd88a4325924688f9b2d7ec00efe2a9..1d3212c436ad61397971b53f7d76c92f55b814c5 100755 (executable)
--- a/basis/ui/windows/windows.factor
+++ b/basis/ui/windows/windows.factor
@@ -284,7 +284,7 @@ SYMBOL: nc-buttons
     message>button nc-buttons get
     swap [ push ] [ delete ] if ;
 
-: >lo-hi ( WORD -- array ) [ lo-word ] keep hi-word 2array ;
+: >lo-hi ( WORD -- array ) [ lo-word ] [ hi-word ] bi 2array ;
 : mouse-wheel ( wParam -- array ) >lo-hi [ sgn neg ] map ;
 
 : mouse-absolute>relative ( lparam handle -- array )