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
] if
] [
print-error :c restarts.
:c
print-error restarts.
"listener" vocab-main execute
1 exit
] recover

View File

@ -42,8 +42,8 @@ TUPLE: inotify watches ;
[ <linux-monitor> dup ] keep watches set-at ;
: remove-watch ( monitor -- )
dup linux-monitor-wd watches delete-at
linux-monitor-wd inotify-fd swap inotify_rm_watch io-error ;
dup simple-monitor-handle watches delete-at
simple-monitor-handle inotify-fd swap inotify_rm_watch io-error ;
M: linux-io <monitor> ( path recursive? -- monitor )
drop IN_CHANGE_EVENTS add-watch ;