remove reversed

Author: leafo

moonscript/compile/statement.lua

@@ -1,6 +1,3 @@
-local util = require("moonscript.util")
-local reversed, unpack
-reversed, unpack = util.reversed, util.unpack
 local ntype
 ntype = require("moonscript.types").ntype
 local concat, insert

moonscript/compile/statement.moon

@@ -1,7 +1,4 @@
 
-util = require "moonscript.util"
-
-import reversed, unpack from util
 import ntype from require "moonscript.types"
 import concat, insert from table
 

moonscript/transform/comprehension.lua

@@ -1,15 +1,14 @@
 local is_value
 is_value = require("moonscript.types").is_value
-local reversed
-reversed = require("moonscript.util").reversed
 local construct_comprehension
 construct_comprehension = function(inner, clauses)
   local current_stms = inner
-  for _, clause in reversed(clauses) do
+  for i = #clauses, 1, -1 do
+    local clause = clauses[i]
     local t = clause[1]
     local _exp_0 = t
     if "for" == _exp_0 then
-      local name, bounds
+      local _, name, bounds
       _, name, bounds = clause[1], clause[2], clause[3]
       current_stms = {
         "for",
@@ -18,7 +17,7 @@ construct_comprehension = function(inner, clauses)
         current_stms
       }
     elseif "foreach" == _exp_0 then
-      local names, iter
+      local _, names, iter
       _, names, iter = clause[1], clause[2], clause[3]
       current_stms = {
         "foreach",
@@ -29,7 +28,7 @@ construct_comprehension = function(inner, clauses)
         current_stms
       }
     elseif "when" == _exp_0 then
-      local cond
+      local _, cond
       _, cond = clause[1], clause[2]
       current_stms = {
         "if",

moonscript/transform/comprehension.moon

@@ -1,12 +1,12 @@
 
 import is_value from require "moonscript.types"
 
--- TODO: reversed unecessary
-import reversed from require "moonscript.util"
 construct_comprehension = (inner, clauses) ->
   current_stms = inner
-  for _, clause in reversed clauses
+  for i=#clauses,1,-1
+    clause = clauses[i]
     t = clause[1]
+
     current_stms = switch t
       when "for"
         {_, name, bounds} = clause

moonscript/util.lua

@@ -60,14 +60,6 @@ get_closest_line = function(str, line_num)
     return line, line_num
   end
 end
-local reversed
-reversed = function(seq)
-  return coroutine.wrap(function()
-    for i = #seq, 1, -1 do
-      coroutine.yield(i, seq[i])
-    end
-  end)
-end
 local split
 split = function(str, delim)
   if str == "" then
@@ -209,7 +201,6 @@ return {
   pos_to_line = pos_to_line,
   get_closest_line = get_closest_line,
   get_line = get_line,
-  reversed = reversed,
   trim = trim,
   split = split,
   dump = dump,

moonscript/util.moon

@@ -48,11 +48,6 @@ get_closest_line = (str, line_num) ->
   else
     line, line_num
 
-reversed = (seq) ->
-  coroutine.wrap ->
-    for i=#seq,1,-1
-      coroutine.yield i, seq[i]
-
 split = (str, delim) ->
   return {} if str == ""
   str ..= delim
@@ -136,7 +131,7 @@ safe_module = (name, tbl) ->
   }
 
 {
-  :moon, :pos_to_line, :get_closest_line, :get_line, :reversed, :trim, :split,
-  :dump, :debug_posmap, :getfenv, :setfenv, :get_options, :unpack, :safe_module
+  :moon, :pos_to_line, :get_closest_line, :get_line, :trim, :split, :dump,
+  :debug_posmap, :getfenv, :setfenv, :get_options, :unpack, :safe_module
 }