Welcome to the CHICKEN Scheme pasting service
ugarit directory-rules trace pasted by C-Keen on Tue Apr 16 19:02:50 2013
[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)>
this time with readable contexts added by C-Keen on Tue Apr 16 19:04:35 2013
[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_5471 object2577 pattern2578)> [2] (f_12035) [2] f_12035 -> #<job> [2] (directory-rules#object-matches "\\" #<procedure (f_5471 object2577 pattern2578)>) [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_5471 object2577 pattern2578)>