resurrect dropped pieces of a previous patch

* lisp/ob.el (org-babel-expand-noweb-references): Resurrect dropped
  pieces of a previous patch.

lisp/ob.el

@@ -2068,25 +2068,29 @@ block but are passed literally to the \"example-block\"."
 		      (if *org-babel-use-quick-and-dirty-noweb-expansion*
 			  (while (re-search-forward rx nil t)
 			    (let* ((i (org-babel-get-src-block-info 'light))
-				   (body (org-babel-expand-noweb-references i)))
-			      (if comment
-				  ((lambda (cs)
-				     (concat (c-wrap (car cs)) "\n"
-					     body "\n" (c-wrap (cadr cs))))
-				   (org-babel-tangle-comment-links i))
-				(setq expansion (concat expansion body)))))
+				   (body (org-babel-expand-noweb-references i))
+				   (full (if comment
+					     ((lambda (cs)
+						(concat (c-wrap (car cs)) "\n"
+							body "\n"
+							(c-wrap (cadr cs))))
+					      (org-babel-tangle-comment-links i))
+					   body)))
+			      (setq expansion (concat expansion full))))
 			(org-babel-map-src-blocks nil
 			  (let ((i (org-babel-get-src-block-info 'light)))
 			    (when (equal (or (cdr (assoc :noweb-ref (nth 2 i)))
 					     (nth 4 i))
 					 source-name)
-			      (let ((body (org-babel-expand-noweb-references i)))
-				(if comment
-				    ((lambda (cs)
-				       (concat (c-wrap (car cs)) "\n"
-					       body "\n" (c-wrap (cadr cs))))
-				     (org-babel-tangle-comment-links i))
-				  (setq expansion (concat expansion body)))))))))
+			      (let* ((body (org-babel-expand-noweb-references i))
+				     (full (if comment
+					       ((lambda (cs)
+						  (concat (c-wrap (car cs)) "\n"
+							  body "\n"
+							  (c-wrap (cadr cs))))
+						(org-babel-tangle-comment-links i))
+					     body)))
+				(setq expansion (concat expansion full))))))))
 		    expansion)
 		  ;; possibly raise an error if named block doesn't exist
 		  (if (member lang org-babel-noweb-error-langs)