[elpa] externals/beardbolt c066da01c4 052/323: Fix ocaml def

[ELPA Syncer]

branch: externals/beardbolt
commit c066da01c46206899117e272fec798089dec1b98
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Fix ocaml def
---
 rmsbolt.el | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index 48bebfba01..b406699822 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -331,23 +331,22 @@ Outputs assembly file if ASM."
               "frame_dummy"
               (and ".plt" (0+ any)))
       eol))
-(defvar rmsbolt--hidden-func-ocaml)
-(setq rmsbolt--hidden-func-ocaml
-      (rx bol
-          (or (and "__" (0+ any))
-              (and "_" (or "init" "start" "fini"))
-              (and (opt "de") "register_tm_clones")
-              (and ".plt" (0+ any))
-              (and "camlCamlinternalFormat" (0+ any))
-              (and (1+ (not (any "@"))) "@plt")
-              (and (or "caml_" "camlStd_") (0+ any))
-              (and "caml" (or "Pervasives" "List" "Bytes"
-                              "String" "Buffer" "Printf"
-                              "Char" "Sys") "__" (0+ any))
-              ;; Ocaml likes to make labels following camlModule__,
-              ;; filter out any lowercase
-              (and (1+ (1+ lower) (opt (or "64" "32" "8" "16")) (opt "_"))))
-          eol))
+(defvar rmsbolt--hidden-func-ocaml
+  (rx bol
+      (or (and "__" (0+ any))
+          (and "_" (or "init" "start" "fini"))
+          (and (opt "de") "register_tm_clones")
+          (and ".plt" (0+ any))
+          (and "camlCamlinternalFormat" (0+ any))
+          (and (1+ (not (any "@"))) "@plt")
+          (and (or "caml_" "camlStd_") (0+ any))
+          (and "caml" (or "Pervasives" "List" "Bytes"
+                          "String" "Buffer" "Printf"
+                          "Char" "Sys") "__" (0+ any))
+          ;; Ocaml likes to make labels following camlModule__,
+          ;; filter out any lowercase
+          (and (1+ (1+ lower) (opt (or "64" "32" "8" "16")) (opt "_"))))
+      eol))
 ;;;; Language Definitions
 (defvar rmsbolt-languages)
 (setq