From 93c5fb440b9467c8ee7d4c0cfbb5c578c74bc43d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 20 Jan 2019 15:06:27 -0700 Subject: loop -> cl-loop --- org-d20.el | 6 +++--- 1 file 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) -- cgit v1.2.3