[nongnu] elpa/geiser-gauche 0e415bf 114/119: Sharp-quote identity function references everywhere

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit 0e415bf8b173ff6f3be81e24f8ed5e93938c0461
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    Sharp-quote identity function references everywhere
---
 geiser-gauche.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index 2ac4e59..58beda9 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -214,7 +214,7 @@
     ;; pass current module information
     ((autodoc symbol-location completions)
      (format "(eval '(geiser:%s %s {{cur-module}}) (find-module 'geiser))"
-            proc (mapconcat 'identity args " ")))
+            proc (mapconcat #'identity args " ")))
     ;; Eval and compile are (module) context sensitive
     ((eval compile)
      (let ((module (cond ((string-equal "'()" (car args))
@@ -223,7 +223,7 @@
                          (concat "'" (car args)))
                         (t
                          "#f")))
-          (form (mapconcat 'identity (cdr args) " ")))
+          (form (mapconcat #'identity (cdr args) " ")))
        ;; The {{cur-module}} cookie is replaced by the current module for
        ;; commands that need it
        (replace-regexp-in-string
@@ -234,7 +234,7 @@
        (format "(eval '(geiser:eval %s '%s) (find-module 'geiser))" module 
form))))
     ;; The rest of the commands are all evaluated in the geiser module
     (t
-     (let ((form (mapconcat 'identity args " ")))
+     (let ((form (mapconcat #'identity args " ")))
        (format "(eval '(geiser:%s %s) (find-module 'geiser))" proc form)))))