[nongnu] elpa/raku-mode 73c35c089b 241/253: Remove an unnecessary (progn) that I missed.

[ELPA Syncer]

branch: elpa/raku-mode
commit 73c35c089b8da4d6bdeaa337264310d96f93c387
Author: Roman Hargrave <roman@hargrave.info>
Commit: Roman Hargrave <roman@hargrave.info>

    Remove an unnecessary (progn) that I missed.
---
 raku-indent.el | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

diff --git a/raku-indent.el b/raku-indent.el
index 9b78aff889..6c1aa7372a 100644
--- a/raku-indent.el
+++ b/raku-indent.el
@@ -82,29 +82,28 @@
      (t (smie-default-backward-token)))))       ;; If none of the above 
matched, defer to SMIE default search
 
 (defun raku-smie-rules (kind token)
-  (progn
-    (pcase (cons kind token)
-      ;; Basic indent offset
-      (`(:elem . basic) raku-indent-offset)
+  (pcase (cons kind token)
+    ;; Basic indent offset
+    (`(:elem . basic) raku-indent-offset)
 
-      ;; Indent offset for function args
-      (`(:elem . arg) 0)
+    ;; Indent offset for function args
+    (`(:elem . arg) 0)
 
-      (`(:list-intro . ,(or `";" `"")) t) ;"" stands for BOB (bug#15467).
+    (`(:list-intro . ,(or `";" `"")) t) ;"" stands for BOB (bug#15467).
 
-      ;; Make sure that hanging assignment gets indented
-      (`(:before . "=")
-       (if (smie-rule-hanging-p)
-           (smie-rule-parent raku-indent-offset)))
+    ;; Make sure that hanging assignment gets indented
+    (`(:before . "=")
+     (if (smie-rule-hanging-p)
+         (smie-rule-parent raku-indent-offset)))
 
-      (`(:before . "{")
-       (when (smie-rule-hanging-p) ; is `{` the last thing on this line?
-         (smie-backward-sexp ";")  ; y tho
-         (smie-indent-virtual)))
+    (`(:before . "{")
+     (when (smie-rule-hanging-p) ; is `{` the last thing on this line?
+       (smie-backward-sexp ";")  ; y tho
+       (smie-indent-virtual)))
 
-      (`(:before . ,(or "{" "("))
-       (if (smie-rule-hanging-p)
-           (smie-rule-parent 0))))))
+    (`(:before . ,(or "{" "("))
+     (if (smie-rule-hanging-p)
+         (smie-rule-parent 0)))))
 
 (provide 'raku-indent)