diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2019-01-20 15:06:27 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-01-20 15:06:27 -0700 |
commit | 93c5fb440b9467c8ee7d4c0cfbb5c578c74bc43d (patch) | |
tree | bf26507c14fa2991be7fcc8c49dd4792d7e8eb74 /org-d20.el | |
parent | ae981314563b49b67306c1a3f765903ddf6eb236 (diff) | |
download | org-d20-93c5fb440b9467c8ee7d4c0cfbb5c578c74bc43d.tar.gz |
loop -> cl-loop
Diffstat (limited to 'org-d20.el')
-rw-r--r-- | org-d20.el | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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) |