[nongnu] elpa/org-contrib dc59cdd46b 2/2: org-babel-execute:mathomatic: Drop ((lambda ...) ...) call

[ELPA Syncer]

branch: elpa/org-contrib
commit dc59cdd46be8f6854c5d6e9252263d0e4e62e896
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-babel-execute:mathomatic: Drop ((lambda ...) ...) call
    
    * lisp/ob-mathomatic.el (org-babel-execute:mathomatic): Do not use
    deprecated lambda call syntax.
---
 lisp/ob-mathomatic.el | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/lisp/ob-mathomatic.el b/lisp/ob-mathomatic.el
index 48a15a17fb..744563497c 100644
--- a/lisp/ob-mathomatic.el
+++ b/lisp/ob-mathomatic.el
@@ -94,17 +94,16 @@ called by `org-babel-execute-src-block'."
                             org-babel-mathomatic-command in-file cmdline)))
           (with-temp-file in-file (insert (org-babel-mathomatic-expand body 
params)))
           (message cmd)
-          ((lambda (raw) ;; " | grep -v batch | grep -v 'replaced' | sed 
'/^$/d' "
-             (mapconcat
-              #'identity
-              (delq nil
-                    (mapcar (lambda (line)
-                              (unless (or (string-match "batch" line)
-                                          (string-match "^rat: replaced .*$" 
line)
-                                          (= 0 (length line)))
-                                line))
-                            (split-string raw "[\r\n]"))) "\n"))
-           (org-babel-eval cmd "")))))
+          ;; " | grep -v batch | grep -v 'replaced' | sed '/^$/d' "
+          (mapconcat
+           #'identity
+           (delq nil
+                 (mapcar (lambda (line)
+                           (unless (or (string-match "batch" line)
+                                       (string-match "^rat: replaced .*$" line)
+                                       (= 0 (length line)))
+                             line))
+                         (split-string (org-babel-eval cmd "") "[\r\n]"))) 
"\n"))))
     (if (org-babel-mathomatic-graphical-output-file params)
        nil
       (if (or (member "scalar" result-params)