[nongnu] elpa/geiser-chicken 8bd8b5c 031/102: Converts toplevel methods to prefixed methods

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 8bd8b5c4ca86e40c6a085fa880693f384d5498c3
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    Converts toplevel methods to prefixed methods
    
    This seems to improve speed; in a large environment I witnessed a
    regular 100ms increase in speed for autodoc.
---
 elisp/geiser-chicken.el | 34 ++++++++++++++--------------------
 1 file changed, 14 insertions(+), 20 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index fc28e63..d3e4b4e 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -141,20 +141,17 @@ This function uses `geiser-chicken-init-file' if it 
exists."
 ;;; Evaluation support:
 
 (defun geiser-chicken--geiser-procedure (proc &rest args)
-  (let ((fmt
-         (case proc
-           ((eval compile)
-            (let ((form (mapconcat 'identity (cdr args) " ")))
-              (format ",geiser-eval %s %s" (or (car args) "#f") form)))
-           ((load-file compile-file)
-            (format ",geiser-load-file %s" (car args)))
-           ((no-values)
-            ",geiser-no-values")
-           (t
-            (let ((form (mapconcat 'identity args " ")))
-              (format "(geiser-%s %s)" proc form))))))
-    ;;(message fmt)
-    fmt))
+  (case proc
+    ((eval compile)
+     (let ((form (mapconcat 'identity (cdr args) " ")))
+       (format "(geiser-eval %s '%s)" (or (car args) "#f") form)))
+    ((load-file compile-file)
+     (format "(geiser-load-file %s)" (car args)))
+    ((no-values)
+     "(geiser-no-values)")
+    (t
+     (let ((form (mapconcat 'identity args " ")))
+       (format "(geiser-%s %s)" proc form)))))
 
 (defconst geiser-chicken--module-re
   "( *module +\\(([^)]+)\\|[^ ]+\\)\\|( *define-library +\\(([^)]+)\\|[^ 
]+\\)")
@@ -195,14 +192,11 @@ This function uses `geiser-chicken-init-file' if it 
exists."
     (apply
      'max
      (append
-      (list (save-excursion (beginning-of-line) (point))
-           (save-excursion (skip-syntax-backward "^'-()>"
-                                                  
distance-to-beginning-of-line)
+      (list (save-excursion (skip-syntax-backward "^'(>" 
distance-to-beginning-of-line)
                            (point)))
       (mapcar
        (lambda (match-string)
-        (save-excursion (skip-chars-backward match-string
-                                              distance-to-beginning-of-line)
+        (save-excursion (skip-chars-backward match-string 
distance-to-beginning-of-line)
                         (point)))
        geiser-chicken-prefix-delimiters)))))
 
@@ -297,7 +291,7 @@ This function uses `geiser-chicken-init-file' if it exists."
     (let ((load-sequence
            (cond
             (force-load
-             (format "(load \"%s\")\n" source))
+             (format "(load \"%s\")\n(import geiser)\n" source))
             ((file-exists-p target)
              (format "%s(load \"%s\")(import geiser)%s\n"
                      suppression-prefix target suppression-postfix))