From 5a2a3bf0a8ccc7ccbec7c41fa959fcedbfa0354b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 11 Apr 2008 21:39:39 -0500 Subject: [PATCH] Fix --- extra/io/windows/nt/monitors/monitors.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/io/windows/nt/monitors/monitors.factor b/extra/io/windows/nt/monitors/monitors.factor index 7594e037a5..7293b39064 100755 --- a/extra/io/windows/nt/monitors/monitors.factor +++ b/extra/io/windows/nt/monitors/monitors.factor @@ -21,7 +21,7 @@ IN: io.windows.nt.monitors dup add-completion f ; -TUPLE: win32-monitor < monitor port path recursive ; +TUPLE: win32-monitor < monitor port recursive ; : begin-reading-changes ( port -- overlapped ) { @@ -56,13 +56,13 @@ TUPLE: win32-monitor < monitor port path recursive ; } case ; : memory>u16-string ( alien len -- string ) - [ memory>byte-array ] [ 2/ ] bi c-ushort-array> >string ; + [ memory>byte-array ] keep 2/ c-ushort-array> >string ; : parse-notify-record ( buffer -- changed path ) [ FILE_NOTIFY_INFORMATION-Action parse-action ] [ FILE_NOTIFY_INFORMATION-FileName ] - [ FILE_NOTIFY_INFORMATION-FileNameLength ] - tri memory>u16-string ; + [ FILE_NOTIFY_INFORMATION-FileNameLength ] tri + memory>u16-string ; : file-notify-records ( buffer -- seq ) [ dup FILE_NOTIFY_INFORMATION-NextEntryOffset 0 > ]