diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-13 03:45:07 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-13 03:45:07 +0100 |
| commit | 102d79f1af0aa0ec1acfa4ff30d4d9897663a4e8 (patch) | |
| tree | 792e11fed2f4c911dbc2251877749017e95d324d | |
| parent | 69efb94a50ca6e8120a7a08d6ccf8216625c8519 (diff) | |
| download | geiser-chez-102d79f1af0aa0ec1acfa4ff30d4d9897663a4e8.tar.gz geiser-chez-102d79f1af0aa0ec1acfa4ff30d4d9897663a4e8.tar.bz2 | |
Cleanups
Nothing here, move on.
| -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 () |