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)>

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Name of the CHICKEN interpreter:
Visually impaired? Let me spell it for you (wav file) download WAV