Rebuild instability

Author: Olical

lua/conjure/client/guile/socket.lua

@@ -157,7 +157,7 @@ local function parse_guile_result(s)
     if s:find("scheme@%([%w%-%s]+%) %[%d+%]>") then
       return {["done?"] = true, ["error?"] = true, result = nil}
     else
-      return {result = s, ["error?"] = false, ["done?"] = false}
+      return {result = s, ["done?"] = false, ["error?"] = false}
     end
   end
 end

lua/conjure/client/python/stdio.lua

@@ -39,7 +39,7 @@ _2amodule_2a["buf-suffix"] = buf_suffix
 local comment_prefix = "# "
 _2amodule_2a["comment-prefix"] = comment_prefix
 local function form_node_3f(node)
-  return (("expression_statement" == node:type()) or ("function_definition" == node:type()) or ("for_statement" == node:type()) or ("call" == node:type()))
+  return (("expression_statement" == node:type()) or ("import_statement" == node:type()) or ("import_from_statement" == node:type()) or ("with_statement" == node:type()) or ("function_definition" == node:type()) or ("for_statement" == node:type()) or ("call" == node:type()))
 end
 _2amodule_2a["form-node?"] = form_node_3f
 local function with_repl_or_warn(f, opts)
@@ -205,19 +205,19 @@ local function start()
     if not pcall(_18_) then
       return log.append({(comment_prefix .. "(error) The python client requires a python treesitter parser in order to function."), (comment_prefix .. "(error) See https://github.com/nvim-treesitter/nvim-treesitter"), (comment_prefix .. "(error) for installation instructions.")})
     else
-      local function _19_()
-        local function _20_(repl)
-          local function _21_(msgs)
+      local function _20_()
+        local function _21_(repl)
+          local function _22_(msgs)
             return nil
           end
-          return repl.send(prep_code(update_python_displayhook), _21_, nil)
+          return repl.send(prep_code(update_python_displayhook), _22_, nil)
         end
-        return display_repl_status("started", with_repl_or_warn(_20_))
+        return display_repl_status("started", with_repl_or_warn(_21_))
       end
-      local function _22_(err)
+      local function _23_(err)
         return display_repl_status(err)
       end
-      local function _23_(code, signal)
+      local function _24_(code, signal)
         if (("number" == type(code)) and (code > 0)) then
           log.append({(comment_prefix .. "process exited with code " .. code)})
         else
@@ -228,10 +228,10 @@ local function start()
         end
         return stop()
       end
-      local function _26_(msg)
+      local function _27_(msg)
         return log.dbg(format_msg(unbatch({msg})), {["join-first?"] = true})
       end
-      return a.assoc(state(), "repl", stdio.start({["prompt-pattern"] = cfg({"prompt-pattern"}), cmd = cfg({"command"}), ["delay-stderr-ms"] = cfg({"delay-stderr-ms"}), ["on-success"] = _19_, ["on-error"] = _22_, ["on-exit"] = _23_, ["on-stray-output"] = _26_}))
+      return a.assoc(state(), "repl", stdio.start({["prompt-pattern"] = cfg({"prompt-pattern"}), cmd = cfg({"command"}), ["delay-stderr-ms"] = cfg({"delay-stderr-ms"}), ["on-success"] = _20_, ["on-error"] = _23_, ["on-exit"] = _24_, ["on-stray-output"] = _27_}))
     end
   end
 end
@@ -249,11 +249,11 @@ local function on_exit()
 end
 _2amodule_2a["on-exit"] = on_exit
 local function interrupt()
-  local function _30_(repl)
+  local function _31_(repl)
     local uv = vim.loop
     return uv.kill(repl.pid, uv.constants.SIGINT)
   end
-  return with_repl_or_warn(_30_)
+  return with_repl_or_warn(_31_)
 end
 _2amodule_2a["interrupt"] = interrupt
 local function on_filetype()

lua/conjure/tree-sitter.lua

@@ -148,27 +148,27 @@ _2amodule_2a["get-leaf"] = get_leaf
 local function node_surrounded_by_form_pair_chars_3f(node, extra_pairs)
   local node_str = node__3estr(node)
   local first_and_last_chars = text["first-and-last-chars"](node_str)
-  local function _16_(_14_)
-    local _arg_15_ = _14_
-    local start = _arg_15_[1]
-    local _end = _arg_15_[2]
+  local function _17_(_15_)
+    local _arg_16_ = _15_
+    local start = _arg_16_[1]
+    local _end = _arg_16_[2]
     return (first_and_last_chars == (start .. _end))
   end
-  local function _19_(_17_)
-    local _arg_18_ = _17_
-    local start = _arg_18_[1]
-    local _end = _arg_18_[2]
+  local function _20_(_18_)
+    local _arg_19_ = _18_
+    local start = _arg_19_[1]
+    local _end = _arg_19_[2]
     return (text["starts-with"](node_str, start) and text["ends-with"](node_str, _end))
   end
-  return (a.some(_16_, config["get-in"]({"extract", "form_pairs"})) or a.some(_19_, extra_pairs) or false)
+  return (a.some(_17_, config["get-in"]({"extract", "form_pairs"})) or a.some(_20_, extra_pairs) or false)
 end
 _2amodule_2a["node-surrounded-by-form-pair-chars?"] = node_surrounded_by_form_pair_chars_3f
 local function node_prefixed_by_chars_3f(node, prefixes)
   local node_str = node__3estr(node)
-  local function _20_(prefix)
+  local function _21_(prefix)
     return text["starts-with"](node_str, prefix)
   end
-  return (a.some(_20_, prefixes) or false)
+  return (a.some(_21_, prefixes) or false)
 end
 _2amodule_2a["node-prefixed-by-chars?"] = node_prefixed_by_chars_3f
 local function get_form(node)
@@ -182,9 +182,9 @@ local function get_form(node)
   elseif (leaf_3f(node0) or (false == client["optional-call"]("form-node?", node0))) then
     return get_form(parent(node0))
   else
-    local _let_22_ = (client["optional-call"]("get-form-modifier", node0) or {})
-    local modifier = _let_22_["modifier"]
-    local res = _let_22_
+    local _let_23_ = (client["optional-call"]("get-form-modifier", node0) or {})
+    local modifier = _let_23_["modifier"]
+    local res = _let_23_
     if (not modifier or ("none" == modifier)) then
       return node0
     elseif ("parent" == modifier) then