diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2017-12-16 16:45:52 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2017-12-16 16:45:52 +0200 |
commit | eaa0e652ee073cf13116e423ebf65e3396af7af0 (patch) | |
tree | e21b93470976351078d7e730d1455a47682b9b73 /cider-repl.el | |
parent | 300cbd70b5a6e63149380e04dab25dbe5fb15996 (diff) |
Improve the name of the variable checking whether we're dealing with the first
chunk of a result
Diffstat (limited to 'cider-repl.el')
-rw-r--r-- | cider-repl.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/cider-repl.el b/cider-repl.el index 1fa6fb82..452c2feb 100644 --- a/cider-repl.el +++ b/cider-repl.el @@ -767,10 +767,10 @@ the symbol." (defun cider-repl-handler (buffer) "Make an nREPL evaluation handler for the REPL BUFFER." (nrepl-make-response-handler buffer - (let (after-first-call) + (let (after-first-result-chunk) (lambda (buffer value) - (cider-repl-emit-result buffer value t (not after-first-call)) - (setq after-first-call t))) + (cider-repl-emit-result buffer value t (not after-first-result-chunk)) + (setq after-first-result-chunk t))) (lambda (buffer out) (cider-repl-emit-stdout buffer out)) (lambda (buffer err) @@ -778,10 +778,10 @@ the symbol." (lambda (buffer) (cider-repl-emit-prompt buffer)) nrepl-err-handler - (let (after-first-call) + (let (after-first-result-chunk) (lambda (buffer pprint-out) - (cider-repl-emit-result buffer pprint-out nil (not after-first-call)) - (setq after-first-call t))))) + (cider-repl-emit-result buffer pprint-out nil (not after-first-result-chunk)) + (setq after-first-result-chunk t))))) (defun cider-repl--send-input (&optional newline) "Go to the end of the input and send the current input. |