diff options
| -rw-r--r-- | elisp/geiser-connection.el | 6 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 1 |
2 files changed, 1 insertions, 6 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el index 0225964..d41110c 100644 --- a/elisp/geiser-connection.el +++ b/elisp/geiser-connection.el @@ -36,16 +36,12 @@ ;;; Request datatype: (defun geiser-con--make-request (con str cont &optional sender-buffer) - (list :geiser-connection-request - (cons :id (geiser-con--connection-inc-count con)) + (list (cons :id (geiser-con--connection-inc-count con)) (cons :string str) (cons :continuation cont) (cons :buffer (or sender-buffer (current-buffer))) (cons :connection con))) -(defsubst geiser-con--request-p (req) - (and (listp req) (eq (car req) :geiser-connection-request))) - (defsubst geiser-con--request-id (req) (cdr (assoc :id req))) diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index fd1da7f..070a108 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -292,7 +292,6 @@ module command as a string") (goto-char p) (setq seen (re-search-forward comint-prompt-regexp nil t))) (goto-char (point-max)) - (unless seen (error "%s" "No prompt found!")))) (defun geiser-repl--is-debugging () |