Update fennel to version 1.3.1

There is a new fennel branch on my fork of fennel called extra-hooks-3
which is up to date with fennel 1.3.1 and has the extra hooks necessary
for the server.

Also, some of the error messages need to be updated to match with fennel
1.3.1's changes.

src/fennel-ls/compiler.fnl

@@ -131,12 +131,12 @@ later by fennel-ls.language to answer requests from the client."
         (tset require-calls ast true)))
 
     (λ recoverable? [msg]
-      (or (msg:find "unknown identifier in strict mode")
-          (msg:find "expected closing delimiter")
-          (msg:find "expected body expression")
-          (msg:find "expected whitespace before opening delimiter")
-          (msg:find "malformed multisym")
-          (msg:find "expected at least one pattern/body pair")))
+      (or (= 1 (msg:find "unknown identifier"))
+          (= 1 (msg:find "expected closing delimiter"))
+          (= 1 (msg:find "expected body expression"))
+          (= 1 (msg:find "expected whitespace before opening delimiter"))
+          (= 1 (msg:find "malformed multisym"))
+          (= 1 (msg:find "expected at least one pattern/body pair"))))
 
     (λ on-compile-error [_ msg ast call-me-to-reset-the-compiler]
       (let [range (or (message.ast->range ast file)
@@ -175,7 +175,7 @@ later by fennel-ls.language to answer requests from the client."
       [macro-file? (= (: file.text :sub 1 24) ";; fennel-ls: macro-file")
        plugin
        {:name "fennel-ls"
-        :versions ["1.3.0"]
+        :versions ["1.3.1"]
         :symbol-to-expression reference
         : call
         :destructure define

test/diagnostic-test.fnl

@@ -31,7 +31,7 @@
             [{:params {: diagnostics}}]
             (find [i v (ipairs diagnostics)]
                (match v
-                 {:message "tried to reference a special form at runtime"
+                 {:message "tried to reference a special form without calling it"
                   :range {:start {:character 4 :line 0}
                           :end   {:character 6 :line 0}}}
                  v)))]