Fix Linux bootstrap
parent
13106c2227
commit
748231e3d1
|
@ -111,7 +111,8 @@ SYMBOL: bootstrap-time
|
||||||
"output-image" get resource-path save-image-and-exit
|
"output-image" get resource-path save-image-and-exit
|
||||||
] if
|
] if
|
||||||
] [
|
] [
|
||||||
print-error :c restarts.
|
:c
|
||||||
|
print-error restarts.
|
||||||
"listener" vocab-main execute
|
"listener" vocab-main execute
|
||||||
1 exit
|
1 exit
|
||||||
] recover
|
] recover
|
||||||
|
|
|
@ -42,8 +42,8 @@ TUPLE: inotify watches ;
|
||||||
[ <linux-monitor> dup ] keep watches set-at ;
|
[ <linux-monitor> dup ] keep watches set-at ;
|
||||||
|
|
||||||
: remove-watch ( monitor -- )
|
: remove-watch ( monitor -- )
|
||||||
dup linux-monitor-wd watches delete-at
|
dup simple-monitor-handle watches delete-at
|
||||||
linux-monitor-wd inotify-fd swap inotify_rm_watch io-error ;
|
simple-monitor-handle inotify-fd swap inotify_rm_watch io-error ;
|
||||||
|
|
||||||
M: linux-io <monitor> ( path recursive? -- monitor )
|
M: linux-io <monitor> ( path recursive? -- monitor )
|
||||||
drop IN_CHANGE_EVENTS add-watch ;
|
drop IN_CHANGE_EVENTS add-watch ;
|
||||||
|
|
Loading…
Reference in New Issue