Fix Linux bootstrap

db4
sheeple 2008-02-12 11:42:43 -06:00
parent 13106c2227
commit 748231e3d1
2 changed files with 4 additions and 3 deletions

View File

@ -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

View File

@ -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 ;