| 
						
						
							
								
							
						
						
					 | 
					 | 
					@ -23,9 +23,10 @@
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					   ;; fragment-optype
 | 
					 | 
					 | 
					 | 
					   ;; fragment-optype
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					   )
 | 
					 | 
					 | 
					 | 
					   )
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					(import chicken scheme data-structures extras ports posix foreign)
 | 
					 | 
					 | 
					 | 
					(import chicken scheme data-structures extras ports posix foreign
 | 
				
			
			
				
				
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					(use srfi-1 srfi-4 spiffy intarweb uri-common base64 simple-sha1 srfi-18
 | 
					 | 
					 | 
					 | 
					        srfi-13 srfi-14 srfi-18)
 | 
				
			
			
				
				
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					     srfi-13 mailbox srfi-14 comparse)
 | 
					 | 
					 | 
					 | 
					(use srfi-1 srfi-4 spiffy intarweb uri-common base64 simple-sha1
 | 
				
			
			
				
				
			
		
	
		
		
	
		
		
	
		
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					     mailbox comparse)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					(define-inline (neq? obj1 obj2) (not (eq? obj1 obj2)))
 | 
					 | 
					 | 
					 | 
					(define-inline (neq? obj1 obj2) (not (eq? obj1 obj2)))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					
 | 
				
			
			
		
	
	
		
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
					 | 
					
 
 |