diff options
| author | Blake DeMarcy <ofunknowndescent@gmail.com> | 2017-04-04 22:17:16 -0500 |
|---|---|---|
| committer | Blake DeMarcy <ofunknowndescent@gmail.com> | 2017-04-04 22:17:16 -0500 |
| commit | b99c7a1f0f41ff96999b03fba36bc7f3b6d9f6df (patch) | |
| tree | 56794f08364b56f3adcdd6f914dc110c90a9c2a1 | |
| parent | 03939fdca5808e142799a4d76efe3ccf4a6b63f9 (diff) | |
| download | bbj-b99c7a1f0f41ff96999b03fba36bc7f3b6d9f6df.tar.gz | |
remove redundant let* in bbj-sane-value
| -rw-r--r-- | clients/emacs/bbj.el | 8 | ||||
| -rw-r--r-- | documentation/VALIDATION.md | 8 |
2 files changed, 6 insertions, 10 deletions
diff --git a/clients/emacs/bbj.el b/clients/emacs/bbj.el index ee6572c..2485421 100644 --- a/clients/emacs/bbj.el +++ b/clients/emacs/bbj.el @@ -158,11 +158,9 @@ is the only thing returned (not the usermap or error field)" passed to the server to check it for validity before the user is allowed to continue. Will recurse until the input is valid, then it is returned." - (let (response value) - (setq value (read-from-minibuffer prompt) - response (bbj-request! 'db_sanity_check - 'value value - 'key key)) + (let* ((value (read-from-minibuffer prompt)) + (response (bbj-request! 'db_sanity_check + 'value value 'key key))) (if (alist-get 'bool response) value (message (alist-get 'description response)) diff --git a/documentation/VALIDATION.md b/documentation/VALIDATION.md index 6c1de78..920171e 100644 --- a/documentation/VALIDATION.md +++ b/documentation/VALIDATION.md @@ -84,11 +84,9 @@ for rejection is displayed clearly to the user and input window is restored. passed to the server to check it for validity before the user is allowed to continue. Will recurse until the input is valid, then it is returned." - (let (response value) - (setq value (read-from-minibuffer prompt) - response (bbj-request! 'db_sanity_check - 'value value - 'key key)) + (let* ((value (read-from-minibuffer prompt)) + (response (bbj-request! 'db_sanity_check + 'value value 'key key))) (if (alist-get 'bool response) value (message (alist-get 'description response)) |