From 73c45ab9dbb276d716cff3274c343a3d1e365577 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 15 May 2023 11:29:20 +0200
Subject: [PATCH] Allow accepting blame output in listings.

---
 src/listing.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/listing.scm b/src/listing.scm
index 151ef73..7412ca2 100644
--- a/src/listing.scm
+++ b/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)