steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

normalize-path on windows file monitor

db4
Doug Coleman 2008-04-25 00:59:44 -05:00
parent b440bda681
commit 13c2e444a8
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/io/monitors/monitors.factor
View File

@ -39,7 +39,7 @@ M: monitor set-timeout (>>timeout) ;
HOOK: (monitor) io-backend ( path recursive? mailbox -- monitor ) HOOK: (monitor) io-backend ( path recursive? mailbox -- monitor )
: <monitor> ( path recursive? -- monitor ) : <monitor> ( path recursive? -- monitor )
>r normalize-path r> <mailbox> (monitor) ; <mailbox> (monitor) ;
: next-change ( monitor -- path changed ) : next-change ( monitor -- path changed )
[ queue>> ] [ timeout ] bi mailbox-get-timeout first2 ; [ queue>> ] [ timeout ] bi mailbox-get-timeout first2 ;

2
extra/io/windows/nt/monitors/monitors.factor
View File

@ -98,7 +98,7 @@ TUPLE: win32-monitor < monitor port ;
M:: winnt (monitor) ( path recursive? mailbox -- monitor ) M:: winnt (monitor) ( path recursive? mailbox -- monitor )
[ [
path mailbox win32-monitor new-monitor path normalize-path mailbox win32-monitor new-monitor
path open-directory \ win32-monitor-port <buffered-port> path open-directory \ win32-monitor-port <buffered-port>
recursive? >>recursive recursive? >>recursive
>>port >>port