[nongnu] elpa/geiser-racket 41f65a1 076/191: Fixes for locals scanning

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 41f65a18c9be6da7dc999d5ff6ebaacdaba0a6b3
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Fixes for locals scanning
    
    ... using the new non-interning reader. Plus scanning for case-lambda
    and syntax-rules. `geiser-syntax--scan-locals' is in danger of
    refactoring, specially if we add support for let-values.
---
 elisp/geiser-racket.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index a349d6e..19301ce 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -84,7 +84,8 @@ This function uses `geiser-racket-init-file' if it exists."
         (rackdir (expand-file-name "racket/" geiser-scheme-dir)))
     `("-i" "-q"
       "-S" ,rackdir
-      ,@(apply 'append (mapcar (lambda (p) (list "-S" p)) 
geiser-racket-collects))
+      ,@(apply 'append (mapcar (lambda (p) (list "-S" p))
+                               geiser-racket-collects))
       ,@(and (listp binary) (cdr binary))
       ,@(and init-file (file-readable-p init-file) (list "-f" init-file))
       "-f" ,(expand-file-name "geiser/startup.rkt" rackdir))))
@@ -161,16 +162,17 @@ This function uses `geiser-racket-init-file' if it 
exists."
   (get-buffer-process (current-buffer)))
 
 (defconst geiser-racket--binding-forms
-  '(for for/list for/hash for/hasheq for/and for/or
-    for/lists for/first for/last for/fold
-    for: for/list: for/hash: for/hasheq: for/and: for/or:
-    for/lists: for/first: for/last: for/fold:))
+  '("for" "for/list" "for/hash" "for/hasheq" "for/and" "for/or"
+    "for/lists" "for/first" "for/last" "for/fold"
+    "for:" "for/list:" "for/hash:" "for/hasheq:" "for/and:" "for/or:"
+    "for/lists:" "for/first:" "for/last:" "for/fold:"
+    "define-syntax-rule"))
 
 (defconst geiser-racket--binding-forms*
-  '(for* for*/list for*/lists for*/hash for*/hasheq for*/and
-    for*/or for*/first for*/last for*/fold
-    for*: for*/list: for*/lists: for*/hash: for*/hasheq: for*/and:
-    for*/or: for*/first: for*/last: for*/fold:))
+  '("for*" "for*/list" "for*/lists" "for*/hash" "for*/hasheq" "for*/and"
+    "for*/or" "for*/first" "for*/last" "for*/fold"
+    "for*:" "for*/list:" "for*/lists:" "for*/hash:" "for*/hasheq:" "for*/and:"
+    "for*/or:" "for*/first:" "for*/last:" "for*/fold:"))
 
 ;;; External help