diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2019-01-06 10:36:33 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-01-06 10:36:33 +0000 |
commit | ae981314563b49b67306c1a3f765903ddf6eb236 (patch) | |
tree | ac61027d6f2478ba83415e629a16954c3eaa170c | |
parent | a136d24fa5dcfb5b7e56355eeb072377955791af (diff) | |
download | org-d20-ae981314563b49b67306c1a3f765903ddf6eb236.tar.gz |
avoid use of ignore-errors
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | org-d20.el | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -122,8 +122,10 @@ the best N of them, e.g., 4d6k3." (concat "1" chopped) chopped))) (split (seq-map #'string-to-number (s-split "[dk]" ours))) (times (seq-elt split 0)) - (sides (ignore-errors (seq-elt split 1))) - (keep (ignore-errors (seq-elt split 2))) + (sides (when (> (seq-length split) 1) + (seq-elt split 1))) + (keep (when (> (seq-length split) 2) + (seq-elt split 2))) (new-rolls '())) (if (not sides) (let ((rolls* |