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

Mac OS X monitors need to call normalize-path

db4
Slava Pestov 2008-05-06 22:20:55 -05:00
parent 1449836f25
commit 732b84bcf9
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/io/unix/macosx/macosx.factor
View File

@ -13,9 +13,11 @@ TUPLE: macosx-monitor < monitor handle ;
] curry each ; ] curry each ;
M:: macosx (monitor) ( path recursive? mailbox -- monitor ) M:: macosx (monitor) ( path recursive? mailbox -- monitor )
path mailbox macosx-monitor new-monitor [let | path [ path normalize-path ] |
dup [ enqueue-notifications ] curry path mailbox macosx-monitor new-monitor
path 1array 0 0 <event-stream> >>handle ; dup [ enqueue-notifications ] curry
path 1array 0 0 <event-stream> >>handle
] ;
M: macosx-monitor dispose M: macosx-monitor dispose
handle>> dispose ; handle>> dispose ;