From ae981314563b49b67306c1a3f765903ddf6eb236 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 6 Jan 2019 10:36:33 +0000 Subject: avoid use of ignore-errors Signed-off-by: Sean Whitton --- org-d20.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'org-d20.el') 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* -- cgit v1.2.3