aboutsummaryrefslogtreecommitdiff
path: root/org-d20.el
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2019-01-20 15:06:27 -0700
committerSean Whitton <spwhitton@spwhitton.name>2019-01-20 15:06:27 -0700
commit93c5fb440b9467c8ee7d4c0cfbb5c578c74bc43d (patch)
treebf26507c14fa2991be7fcc8c49dd4792d7e8eb74 /org-d20.el
parentae981314563b49b67306c1a3f765903ddf6eb236 (diff)
downloadorg-d20-93c5fb440b9467c8ee7d4c0cfbb5c578c74bc43d.tar.gz
loop -> cl-loop
Diffstat (limited to 'org-d20.el')
-rw-r--r--org-d20.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/org-d20.el b/org-d20.el
index c1c35e1..ed85fee 100644
--- a/org-d20.el
+++ b/org-d20.el
@@ -131,9 +131,9 @@ the best N of them, e.g., 4d6k3."
(let ((rolls*
(org-d20--rolls-concat sign rolls (int-to-string times))))
(cons rolls* (+ total (* sign times))))
- (loop repeat times
- do (let ((new-roll (1+ (random sides))))
- (push new-roll new-rolls)))
+ (cl-loop repeat times
+ do (let ((new-roll (1+ (random sides))))
+ (push new-roll new-rolls)))
(when keep
;; TODO: This should drop the items without reordering the
;; list (spw 2019-01-05)