summaryrefslogtreecommitdiff
path: root/emacs/guix-guile.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-10-06 20:30:16 +0300
committerAlex Kost <alezost@gmail.com>2015-10-09 16:17:45 +0300
commit5a60d56975a67facbea41cb97fb4903453bf0752 (patch)
treefc019af46e491639b89207460a0721a03ed13af3 /emacs/guix-guile.el
parent7c786db4fba0c19d46d23f978af3d0131f985f15 (diff)
emacs: Fix 'guix-devel-setup-repl'.
Setting up guix ports needs to be done in Geiser REPL synchronously, otherwise this operation may not be finished before the further evaluating of guile code. * emacs/guix-guile.el (guix-guile-prompt?): New function. * emacs/guix-geiser.el (guix-geiser-eval-in-repl-synchronously): New function. * emacs/guix-devel.el (guix-devel-setup-repl): Use it.
Diffstat (limited to 'emacs/guix-guile.el')
-rw-r--r--emacs/guix-guile.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/emacs/guix-guile.el b/emacs/guix-guile.el
index 63322d7ed8..cd6c54d87e 100644
--- a/emacs/guix-guile.el
+++ b/emacs/guix-guile.el
@@ -88,6 +88,11 @@ PROC and ARGS should be strings."
args
" ")))
+(defun guix-guile-prompt? (string)
+ "Return non-nil, if STRING contains a Guile prompt."
+ (or (string-match-p geiser-guile--prompt-regexp string)
+ (string-match-p geiser-guile--debugger-prompt-regexp string)))
+
(provide 'guix-guile)
;;; guix-guile.el ends here