Allow accepting blame output in listings.

src/listing.scm

@@ -39,7 +39,8 @@
 	 (chicken format)
 	 testing
 	 ansi
-	 util-kwargs)
+	 util-kwargs
+	 util-dict-list)
 
  ;; Returns the number of digits required to represent a given number
  ;; in decimal format.
@@ -163,7 +164,10 @@
 			(display ctx-pre)))
 		  (display (sprintf "~A~A~A"
 				    (format-line-number number digits)
-				    (car lines)
+				    (let ((line (car lines)))
+				      (if (ldict? line)
+					  (ldict-ref line 'line)
+					  line))
 				    (let ((comment (highlight-comment number highlights)))
 				      (if comment
 					  (sprintf "  # <<< ~A" comment)