aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2019-01-06 10:36:33 +0000
committerSean Whitton <spwhitton@spwhitton.name>2019-01-06 10:36:33 +0000
commitae981314563b49b67306c1a3f765903ddf6eb236 (patch)
treeac61027d6f2478ba83415e629a16954c3eaa170c
parenta136d24fa5dcfb5b7e56355eeb072377955791af (diff)
downloadorg-d20-ae981314563b49b67306c1a3f765903ddf6eb236.tar.gz
avoid use of ignore-errors
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r--org-d20.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/org-d20.el b/org-d20.el
index 09480e2..c1c35e1 100644
--- a/org-d20.el
+++ b/org-d20.el
@@ -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*