| 
					
				 | 
			
			
				@@ -421,8 +421,12 @@ session." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (interactive) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let* ((info (or info (org-babel-get-src-block-info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (lang (nth 0 info)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-         (body (nth 1 info)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (params (nth 2 info)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+         (body (setf (nth 1 info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		     (if (and (cdr (assoc :noweb params)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                              (string= "yes" (cdr (assoc :noweb params)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                         (org-babel-expand-noweb-references info) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		       (nth 1 info)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (session (cdr (assoc :session params))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (dir (cdr (assoc :dir params))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (default-directory 
			 |