io.monitors.recursive: Fry quotations - do not apply liberally.

db4
Doug Coleman 2013-07-16 14:43:29 -07:00
parent 36a4eb7ee1
commit 7ed9365c00
1 changed files with 1 additions and 1 deletions

View File

@ -100,7 +100,7 @@ M: recursive-monitor dispose*
ready>> ?promise ?linked drop ; ready>> ?promise ?linked drop ;
: <recursive-monitor> ( path mailbox -- monitor ) : <recursive-monitor> ( path mailbox -- monitor )
'[ _ _ [
[ absolute-path ] dip [ absolute-path ] dip
recursive-monitor new-monitor |dispose recursive-monitor new-monitor |dispose
H{ } clone >>children H{ } clone >>children