magical
/
bbj
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove redundant let* in bbj-sane-value

pull/4/head
Blake DeMarcy 2017-04-04 22:17:16 -05:00
parent 03939fdca5
commit b99c7a1f0f
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
clients/emacs/bbj.el
View File

@ -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 passed to the server to check it for validity before the
user is allowed to continue. Will recurse until the input user is allowed to continue. Will recurse until the input
is valid, then it is returned." is valid, then it is returned."
(let (response value) (let* ((value (read-from-minibuffer prompt))
(setq value (read-from-minibuffer prompt) (response (bbj-request! 'db_sanity_check
response (bbj-request! 'db_sanity_check 'value value 'key key)))
'value value
'key key))
(if (alist-get 'bool response) (if (alist-get 'bool response)
value value
(message (alist-get 'description response)) (message (alist-get 'description response))

8
documentation/VALIDATION.md
View File

@ -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 passed to the server to check it for validity before the
user is allowed to continue. Will recurse until the input user is allowed to continue. Will recurse until the input
is valid, then it is returned." is valid, then it is returned."
(let (response value) (let* ((value (read-from-minibuffer prompt))
(setq value (read-from-minibuffer prompt) (response (bbj-request! 'db_sanity_check
response (bbj-request! 'db_sanity_check 'value value 'key key)))
'value value
'key key))
(if (alist-get 'bool response) (if (alist-get 'bool response)
value value
(message (alist-get 'description response)) (message (alist-get 'description response))