|  |  | @ -152,17 +152,6 @@ | 
			
		
	
		
		
			
				
					
					|  |  |  | 
 |  |  |  | 
 | 
			
		
	
		
		
			
				
					
					|  |  |  | ;;; api |  |  |  | ;;; api | 
			
		
	
		
		
			
				
					
					|  |  |  | 
 |  |  |  | 
 | 
			
		
	
		
		
			
				
					
					|  |  |  | ; broken and deprecated |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  | ; next version will have parameterized keywords so this |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  | ; won't be necessary |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  | (define-syntax with-bucket |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  |   (syntax-rules () |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  |     ((with-bucket bucket (func p1 ...)) |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  |      (func bucket p1 ...)) |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  |     ((with-bucket bucket exp body ...) |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  |      (begin (with-bucket bucket exp) |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  |             (with-bucket bucket body ...))))) |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  | 
 |  |  |  |  | 
			
		
	
		
		
			
				
					
					|  |  |  | (define (list-buckets) |  |  |  | (define (list-buckets) | 
			
		
	
		
		
			
				
					
					|  |  |  |   (perform-aws-request sxpath: '(x:ListAllMyBucketsResult x:Buckets x:Bucket x:Name *text*))) |  |  |  |   (perform-aws-request sxpath: '(x:ListAllMyBucketsResult x:Buckets x:Bucket x:Name *text*))) | 
			
		
	
		
		
			
				
					
					|  |  |  | 
 |  |  |  | 
 | 
			
		
	
	
		
		
			
				
					|  |  | 
 |