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