diff options
| author | Lockywolf <lockywolf@gmail.com> | 2019-08-29 13:55:24 +0800 |
|---|---|---|
| committer | Lockywolf <lockywolf@gmail.com> | 2019-09-03 15:06:02 +0800 |
| commit | fb6be75c2ba3b6064ad69544b409f7e7962fa74d (patch) | |
| tree | cb7edd5ae60ace721912d4b7c1693b8e955ceb8f | |
| parent | ee24d693951dfb6bc6683930c63b1eecfc4b628e (diff) | |
| download | geiser-guile-fb6be75c2ba3b6064ad69544b409f7e7962fa74d.tar.gz geiser-guile-fb6be75c2ba3b6064ad69544b409f7e7962fa74d.tar.bz2 | |
Fix latest chicken. Add debug level logging. Fixed typo.
| -rw-r--r-- | elisp/geiser-chicken.el | 8 | ||||
| -rw-r--r-- | elisp/geiser-log.el | 9 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 2 |
3 files changed, 12 insertions, 7 deletions
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el index 1af2afa..dff028f 100644 --- a/elisp/geiser-chicken.el +++ b/elisp/geiser-chicken.el @@ -295,12 +295,8 @@ This function uses `geiser-chicken-init-file' if it exists." (geiser-eval--send/wait load-sequence)))) (defun geiser-chicken5-load () - (let ((source (expand-file-name "chicken/geiser/chicken5.scm" geiser-scheme-dir)) - (suppression-prefix - "(define geiser-stdout (current-output-port))(current-output-port (make-output-port (lambda a #f) (lambda a #f)))") - (suppression-postfix - "(current-output-port geiser-stdout)")) - (geiser-eval--send/wait (format "%s (load \"%s\") (import geiser) %s" suppression-prefix source suppression-postfix)))) + (let ((source (expand-file-name "chicken/geiser/chicken5.scm" geiser-scheme-dir))) + (geiser-eval--send/wait (format "(display '((result . t) (output . f))) (load \"%s\") (import geiser)" source)))) (defun geiser-chicken--startup (remote) (compilation-setup t) 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) |