[nongnu] elpa/org-contrib 6ab347d4f3: * lisp/ob-fomus.el: Switch to lexical binding, fix compiler warnings

[ELPA Syncer]

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

    * lisp/ob-fomus.el: Switch to lexical binding, fix compiler warnings
    
    (org-babel-execute:fomus): Remove unused let-binding.
    (org-babel-prep-session:fomus): Mark function arguments as unused.
---
 lisp/ob-fomus.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/ob-fomus.el b/lisp/ob-fomus.el
index 8d834f853d..ef43945df4 100644
--- a/lisp/ob-fomus.el
+++ b/lisp/ob-fomus.el
@@ -1,4 +1,4 @@
-;;; ob-fomus.el --- Org-babel functions for fomus evaluation
+;;; ob-fomus.el --- Org-babel functions for fomus evaluation  -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2011-2014, 2021 Torsten Anders
 
@@ -64,8 +64,7 @@
 (defun org-babel-execute:fomus (body params)
   "Execute a block of Fomus code with org-babel.
 This function is called by `org-babel-execute-src-block'."
-  (let* ((result-params (cdr (assq :result-params params)))
-        (out-file (cdr (assq :file params)))
+  (let* ((out-file (cdr (assq :file params)))
         (cmdline (cdr (assq :cmdline params)))
         (cmd (or (cdr (assq :cmd params)) "fomus"))
         (in-file (org-babel-temp-file "fomus-" ".fms")))
@@ -83,7 +82,7 @@ This function is called by `org-babel-execute-src-block'."
             " -o " (org-babel-process-file-name out-file)) "")
     nil)) ;; signal that output has already been written to file
 
-(defun org-babel-prep-session:fomus (session params)
+(defun org-babel-prep-session:fomus (_session _params)
   "Return an error because Fomus does not support sessions."
   (error "Fomus does not support sessions"))