[nongnu] elpa/geiser dbf07ebc78 1/2: e320b982 wasn't a good idea, and lexical-binding for geiser-syntax

[ELPA Syncer]

branch: elpa/geiser
commit dbf07ebc781622184f6e944271c2d35becf9d13e
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    e320b982 wasn't a good idea, and lexical-binding for geiser-syntax
---
 elisp/geiser-syntax.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 3af65394fb..5faa86ff63 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -1,4 +1,4 @@
-;;; geiser-syntax.el -- utilities for parsing scheme syntax
+;;; geiser-syntax.el -- utilities for parsing scheme syntax  -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2009-2016, 2019-2022 Jose Antonio Ortega Ruiz
 
@@ -213,7 +213,7 @@ implementation-specific entries for font-lock-keywords.")
               (geiser-syntax--read/token 'dot)
             (cons 'atom (geiser-syntax--read/elisp))))
       (?\# (cl-case (geiser-syntax--read/next-char)
-             ('nil '(eob))
+             ((nil quote) '(eob))
              (?| (geiser-syntax--read/skip-comment))
              (?: (if (geiser-syntax--read/next-char)
                      (cons 'kwd (geiser-syntax--read/symbol))
@@ -229,7 +229,7 @@ implementation-specific entries for font-lock-keywords.")
                         (tok (cons 'atom tok))
                         (t (geiser-syntax--read/next-token)))))))
       (?| (cl-case (geiser-syntax--read/next-char) ;; gambit style block 
comments
-            ('nil '(eob))
+            ((nil quote) '(eob))
             (?# (geiser-syntax--read/skip-comment))
             (t (let ((tok (geiser-syntax--read/symbol)))
                  (cond ((equal (symbol-name tok) "t") '(boolean . :t))
@@ -365,9 +365,8 @@ implementation-specific entries for font-lock-keywords.")
 (defun geiser-syntax--scan-sexps ()
   (let* ((fst (geiser-syntax--symbol-at-point))
          (smth (or fst (not (looking-at-p "[\s \s)\s>\s<\n]"))))
-         (path))
+         (path (and fst `((,fst 0)))))
     (save-excursion
-      (when fst (backward-up-list) (push `(,fst 0) path))
       (while (> (or (geiser-syntax--nesting-level) 0) 0)
         (let ((boundary (point)))
           (geiser-syntax--skip-comment/string)
@@ -465,7 +464,7 @@ implementation-specific entries for font-lock-keywords.")
         (let ((boundary (point))
               (nesting (geiser-syntax--nesting-level)))
           (geiser-syntax--pop-to-top)
-          (cl-destructuring-bind (form end)
+          (cl-destructuring-bind (form _end)
               (geiser-syntax--form-after-point boundary)
             (delete sym
                     (geiser-syntax--scan-locals bfs