From 32236e79f02fd2ebc0af2fab06109413d084a3f7 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 4 Sep 2021 10:37:46 -0500
Subject: Fix bug

---
 lisp/acdw-irc.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lisp/acdw-irc.el')

diff --git a/lisp/acdw-irc.el b/lisp/acdw-irc.el
index f5e5657..3755441 100644
--- a/lisp/acdw-irc.el
+++ b/lisp/acdw-irc.el
@@ -41,9 +41,9 @@ Stolen from s.el."
     (declare (pure t) (side-effect-free t))
     (let (ss)
       (while (> num 0)
-        (setq ss (cons str ss)
-              num (1- num)))
-      (apply #'concat ss))))
+        (setq ss (cons s ss))
+        (setq num (1- num)))
+      (apply 'concat ss))))
 
 (if (fboundp 's-truncate)
     (defalias 'truncate-string 's-truncate)
-- 
cgit 1.4.1-21-gabe81