Fix latest chicken. Add debug level logging. Fixed typo.

2 files changed, 10 insertions, 1 deletions

diff --git a/elisp/geiser-log.el b/elisp/geiser-log.el
index a252144..e004831 100644
--- a/elisp/geiser-log.el
+++ b/elisp/geiser-log.el
@@ -39,6 +39,10 @@
 (defvar geiser-log-verbose-p nil
   "Log purely informational messages. Useful for debugging.")
 
+(defvar geiser-log-verbose-debug-p nil
+  "Log very verbose informational messages. Useful only for debugging.")
+
+
 (defvar geiser-log--inhibit-p nil
   "Set this to t to inhibit all log messages")
 
@@ -54,6 +58,7 @@
                  (when (> b geiser-log--max-buffer-size)
                    (delete-region (point-min) b))))
             nil t)
+  ;; Maybe this feature would better be implemented as a revert-buffer function?
   (add-hook 'after-change-functions
             '(lambda (b e len)
                (when geiser-log-autoscroll-buffer-p
@@ -85,6 +90,10 @@
   (when geiser-log-verbose-p
     (apply 'geiser-log--msg 'INFO args) ""))
 
+(defsubst geiser-log--debug (&rest args)
+  (when geiser-log-verbose-debug-p
+    (apply 'geiser-log--msg 'DEBUG args) ""))
+
 
 ;;; User commands:
 
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index c589ab3..89226d2 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -484,7 +484,7 @@ module command as a string")
         (error "Geiser requires %s version %s but detected %s" impl r v)))))
 
 (defun geiser-repl--start-repl (impl address)
-  (message "Starting Geiser REPL for %s ..." impl)
+  (message "Starting Geiser REPL ...")
   (when (not address) (geiser-repl--check-version impl))
   (geiser-repl--to-repl-buffer impl)
   (sit-for 0)