From c92d547036ef3d9e23ebf2a3bc27a06eae5b1086 Mon Sep 17 00:00:00 2001
From: Kris Katterjohn <katterjohn@gmail.com>
Date: Fri, 28 Jun 2024 18:15:01 -0400
Subject: [PATCH] transl: remove outdated and incorrect comment from
 TR-MPROG-BODY

---
 src/transl.lisp | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/transl.lisp b/src/transl.lisp
index d7755fc88..ec700768a 100644
--- a/src/transl.lisp
+++ b/src/transl.lisp
@@ -1056,7 +1056,6 @@ APPLY means like APPLY.")
   (do ((l nil))
       ((null body)
        ;; [5] hack the val-list for the mode context.
-       ;; Perhaps the only use of the function MAP in all of macsyma.
        (mapl #'(lambda (val-list arglist)
 		 (cond ((atom (car val-list))
 			(rplaca val-list
-- 
2.11.4.GIT