jadedctrl/ chicken-chatdir
Archived
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Don't cleanup newly-added room directories

This commit is contained in:
Jaidyn Ann 2023-05-29 12:02:41 -05:00
parent a826b9a829
commit 0798982f76
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
inotify.scm
View File

@ -21,7 +21,6 @@
(chicken base) (chicken condition) (chicken file) (chicken io) (chicken base) (chicken condition) (chicken file) (chicken io)
(chicken pathname) (chicken pathname)
srfi-1 srfi-1
(prefix chatdir chatdir:)
(prefix inotify inotify:)) (prefix inotify inotify:))
@ -122,7 +121,6 @@
(define (join-channel root-dir callbacks-alist channel) (define (join-channel root-dir callbacks-alist channel)
(let* ([in-path (subpath root-dir channel ".in")] (let* ([in-path (subpath root-dir channel ".in")]
[join-callback (alist-ref 'join-channel callbacks-alist)]) [join-callback (alist-ref 'join-channel callbacks-alist)])
(chatdir:channel-add! root-dir channel)
(if join-callback (if join-callback
(begin (begin
(apply join-callback (list channel)) (apply join-callback (list channel))