From 102d79f1af0aa0ec1acfa4ff30d4d9897663a4e8 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 13 Nov 2010 03:45:07 +0100 Subject: Cleanups Nothing here, move on. --- elisp/geiser-connection.el | 6 +----- elisp/geiser-repl.el | 1 - 2 files changed, 1 insertion(+), 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 () -- cgit v1.2.3