diff options
| author | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2015-03-22 18:05:53 +0300 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2015-03-22 18:05:53 +0300 |
| commit | 48e06dbf63f0032dd35d2cda0f829500d0b53b67 (patch) | |
| tree | 87e0168498b48664da121335e0775383514c5e90 | |
| parent | eadac9f21756298671aba31a40837ce8370d14af (diff) | |
| parent | 370ef2f592aa9e27cb3e83105ef8f075edfb65bd (diff) | |
Merge pull request #1042 from vspinu/master
Edebug please understand `nrepl-dbind-response`
| -rw-r--r-- | nrepl-client.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/nrepl-client.el b/nrepl-client.el index 23c52b6f..4973c291 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -250,6 +250,7 @@ To be used for tooling calls (i.e. completion, eldoc, etc)") (defmacro nrepl-dbind-response (response keys &rest body) "Destructure an nREPL RESPONSE dict. Bind the value of the provided KEYS and execute BODY." + (declare (debug (form (&rest symbolp) body))) `(let ,(cl-loop for key in keys collect `(,key (nrepl-dict-get ,response ,(format "%s" key)))) ,@body)) |