swap the order

I should prevent accessiability first, then delete the resource Signed-off-by: Lîm Tsú-thuàn <[email protected]>
dannypsnl · Sep 14, 2024 · fb2eaa9 · fb2eaa9
1 parent b50bc3c
commit fb2eaa9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/collect/record-maintainer.rkt b/collect/record-maintainer.rkt
@@ -52,8 +52,8 @@
   (when (valid-path? path)
     (define maintainer (get-record-maintainer path))
     (when maintainer
-      (kill-thread maintainer)
-      (hash-set! path=>maintainer path #f))))
+      (hash-set! path=>maintainer path #f)
+      (kill-thread maintainer))))
 
 ;;; this thread do nothing and provide fake reply is need
 ; the purpose is making sure the caller will fail gratefully, but no need to handle exception