[0] (ugarit-core#store-directory! # "/tmp/t") [1] (directory-rules#call-with-context () "/tmp/t" #) [2] (f_12035) [2] f_12035 -> # [2] (f_12035) [2] f_12035 -> # [2] (f_12035 # #f) [2] f_12035 -> # [2] (ugarit-backend#storage-writable? #) [2] ugarit-backend#storage-writable? -> #t [2] (ugarit-backend#storage-writable? #) [2] ugarit-backend#storage-writable? -> #t [2] (directory-rules#make-filesystem-object-pattern-checker "/tmp/t") [2] directory-rules#make-filesystem-object-pattern-checker -> # [2] (f_12035) [2] f_12035 -> # [2] (directory-rules#object-matches "\\" #) [3] (f_12035) [3] f_12035 -> # [2] directory-rules#object-matches -> () [2] (f_12035) [2] f_12035 -> # [2] (f_14843 #) [2] f_14843 -> #f [2] (f_12035) [2] f_12035 -> # [2] (f_14859 #) [2] f_14859 -> #f [2] (directory-rules#call-with-context () "/tmp/t/" #) [3] (f_12035) [3] f_12035 -> # [3] (f_12035) [3] f_12035 -> # [3] (f_12035 # #f) [3] f_12035 -> # [3] (ugarit-backend#storage-writable? #) [3] ugarit-backend#storage-writable? -> #t [3] (ugarit-backend#storage-writable? #) [3] ugarit-backend#storage-writable? -> #t [3] (directory-rules#make-filesystem-object-pattern-checker "/tmp/t/") [3] directory-rules#make-filesystem-object-pattern-checker -> #