| 
					
				 | 
			
			
				@@ -120,7 +120,9 @@ the header arguments specified at the source code block." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (unless (member lang litorgy-interpreters) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (error "Language is not in `litorgy-interpreters': %s" lang)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (setq result (funcall cmd body params)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (litorgy-insert-result result (cdr (assoc :results params))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (if arg 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+        (message (format "%S" result)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (litorgy-insert-result result (cdr (assoc :results params)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     result)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun litorgy-eval-buffer (&optional arg) 
			 |