From c5d7702d3a9bc7bcefcc87284b7e65622468c52f Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 14 Feb 2021 20:02:56 +0100
Subject: main.lisp: Rename `reload-extensions` to `attach-extensions`

That function was originally intended to be doing reloading, but that
didn't turn out to be the case. In order to do the reloading, we first
need to attach to the extensions individually. Rename the function to
better correspond to what it does.
---
 l/src/main.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'l/src/main.lisp')

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 0695f20..3694f01 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -55,7 +55,7 @@
       (let ((targets (extension-targets targets)))
         (setf *extension-targets-count* (length targets))
 
-        (reload-extensions targets extension-ids)))
+        (attach-extensions targets extension-ids)))
 
     (if (target-attached-to-target-msg-p response)
         (reload-extension (json-obj-get
@@ -85,8 +85,7 @@
                     (if (search "not available" s)
                         nil)))))
 
-;;; TODO: Rename to attach-extensions
-(defun reload-extensions (targets extension-ids)
+(defun attach-extensions (targets extension-ids)
   (labels ((requested-extension-p (target)
              (find-if
                #'(lambda (id)
-- 
cgit v1.2.3