Updating to version 2.4.4.3, with new syntax for multi-statement 'if'

and switch statements.

code_obj.lua

@@ -312,12 +312,6 @@ do
       end
       return statements
     end,
-    as_expr = function(self)
-      if self.is_value then
-        return self
-      end
-      return error("Cannot convert to expression: " .. tostring(tostring(self)))
-    end,
     __tostring = function(self)
       if self.__str == nil then
         local buff, indent = { }, 0

code_obj.moon

@@ -4,7 +4,6 @@
 {:insert, :remove, :concat} = table
 {:repr} = require 'utils'
 local LuaCode, NomsuCode, Source
-export LINE_STARTS
 
 class Source
     new: (@filename, @start, @stop)=>
@@ -186,11 +185,6 @@ class LuaCode extends Code
             statements\append suffix
         return statements
 
-    as_expr: =>
-        if @is_value
-            return self
-        error("Cannot convert to expression: #{tostring self}")
-
     __tostring: =>
         if @__str == nil
             buff, indent = {}, 0

compatibility/2.nom

@@ -4,7 +4,7 @@ use "compatibility/compatibility.nom"
 
 upgrade %tree to "2" as:
     unless (%tree is "Action" syntax tree): return
-    if (all[%tree.stub is "if % % else %", not (%tree.3 is "Var" syntax tree), not (%tree.5 is "Var" syntax tree)]):
+    if (%tree.stub is "if % % else %"):
         %true_body = (%tree.3 upgraded)
         unless (%true_body is "Block" syntax tree):
             %true_body = (=lua "Block(\%true_body.source, \%true_body)")
@@ -22,7 +22,7 @@ upgrade %tree to "2" as:
         "for % in % to % via % %", "for % in % to % %", "for % % in % %", "do %"
         "for % in recursive % %", "test %", "with % %", "result of %"
     for %n in %need_blocks:
-        if ((%tree.stub is %n) and (not ((last in %tree) is "Var" syntax tree))):
+        if (%tree.stub is %n):
             %bits = (((% upgraded) if (% is syntax tree) else %) for % in %tree)
             unless ((last in %bits) is "Block" syntax tree):
                 %body = (last in %bits)

compatibility/compatibility.nom

@@ -21,16 +21,16 @@ compile [upgrade action %action to %version as %body] to:
             %replacements.(%action.%i.1) = "\(\%tree as lua id)[\%i]"
     local action [make tree %t]:
         when:
-            * (%t is "Var" syntax tree):
+            (%t is "Var" syntax tree):
                 if (%replacements.(%t.1)):
                     return %replacements.(%t.1)
                 ..else:
                     return "\(%t.type)(\(quote "\(%t.source)"), \(quote "\(%t.1) \0\(=lua "string.format('%X', __MANGLE_INDEX)")"))"
-            * (%t is syntax tree):
+            (%t is syntax tree):
                 %args = ((make tree %) for % in %t)
                 add "\(\%tree as lua id).source" to %args at index 1
                 return "\(%t.type)(\(%args joined with ", "))"
-            *else: return (quote "\%t")
+            else: return (quote "\%t")
     return (..)
         Lua ".."
             A_upgrade_action_1_to_2_via_3(\(quote %action.stub), \(%version as lua expr), function(\(\%tree as lua id))
@@ -66,9 +66,9 @@ parse [%tree upgraded from %start_version] as (..)
     %tree upgraded from %start_version to (Nomsu version)
 
 parse [%tree upgraded to %end_version] as (..)
-    %tree upgraded from %tree.version to %end_version
+    %tree upgraded from (%tree.version or "0") to %end_version
 
-parse [%tree upgraded] as (%tree upgraded from %tree.version to (Nomsu version))
+parse [%tree upgraded] as (%tree upgraded from (%tree.version or "0") to (Nomsu version))
 action [use %path from version %version] (..)
     for file %filename in %path:
         if (=lua "LOADED[\%filename]"): do next %filename

core/collections.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file contains code that supports manipulating and using collections like lists
     and dictionaries.

core/control_flow.nom

@@ -154,7 +154,7 @@ compile [..]
 ..to:
     
     # This uses Lua's approach of only allowing loop-scoped variables in a loop
-    assume (%var.type is "Var") or barf "Loop expected variable, not: \%var"
+    unless (%var.type is "Var"): compile error at %var.source "Loop expected variable, not: %s"
     %lua = (..)
         Lua ".."
             for \(%var as lua expr)=\(%start as lua expr),\(%stop as lua expr),\(%step as lua expr) do
@@ -185,12 +185,11 @@ compile [..]
 parse [for %var in %start to %stop %body] as (..)
     for %var in %start to %stop via 1 %body
 
-
 # For-each loop (lua's "ipairs()")
 compile [for %var in %iterable %body] to:
     
     # This uses Lua's approach of only allowing loop-scoped variables in a loop
-    assume (%var.type is "Var") or barf "Loop expected variable, not: \%var"
+    unless (%var.type is "Var"): compile error at %var.source "Loop expected variable, not: %s"
     %lua = (..)
         Lua ".."
             for i,\(%var as lua identifier) in ipairs(\(%iterable as lua expr)) do
@@ -223,8 +222,8 @@ compile [for %key = %value in %iterable %body, for %key %value in %iterable %bod
 ..to:
     
     # This uses Lua's approach of only allowing loop-scoped variables in a loop
-    assume (%key.type is "Var") or barf "Loop expected variable, not: \%key"
+    unless (%key.type is "Var"): compile error at %key.source "Loop expected variable, not: %s"
-    assume (%value.type is "Var") or barf "Loop expected variable, not: \%value"
+    unless (%value.type is "Var"): compile error at %value.source "Loop expected variable, not: %s"
     %lua = (..)
         Lua ".."
             for \(%key as lua identifier),\(%value as lua identifier) in pairs(\(%iterable as lua expr)) do
@@ -266,101 +265,88 @@ compile [for %key = %value in %iterable %body, for %key %value in %iterable %bod
 
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
-# Switch statement/multi-branch if
+# Multi-branch conditional (if..elseif..else)
-compile [when %body] to:
+compile [if %body, when %body] to:
     %code = (Lua "")
-    %fallthroughs = []
+    %clause = "if"
-    %is_first = (yes)
+    %else_allowed = (yes)
-    %seen_else = (no)
+    unless (%body.type is "Block"): compile error at %body.source "'if' expected a Block, but got: %s"
-    %branches = (%body if (%body.type == "Block") else [%body])
+    for %line in %body:
-    for %func_call in %branches:
+        unless (..)
-        assume (%func_call.type is "Action") or barf "Invalid format for 'when' statement. Only '*' blocks are allowed."
+            ((%line.type is "Action") and ((length of %line) >= 2))
-        with {%star: %func_call.1, %condition: %func_call.2, %action: %func_call.3}:
+            ..and (%line.(length of %line) is "Block" syntax tree)
-            assume (%star == "*") or barf "Invalid format for 'when' statement. Lines must begin with '*'"
+        ..:
-            assume %condition or barf ".."
+            compile error at %line.source ".."
-                Invalid format for 'when' statement. Lines must begin with '*' and have a condition \
+                Invalid line for 'if', each line should contain conditional expressions \
-                ..or the word "else"
+                ..followed by a block, or "else" followed by a block:
-            
+                %s
-            if (%action is (nil)):
+        %action = %line.(length of %line)
-                lua> "table.insert(\%fallthroughs, \(%condition as lua expr))"
+        if ((%line.1 is "else") and ((length of %line) == 2)):
-                do next %func_call
+            unless %else_allowed: compile error at %line.source "Can't have two 'else' blocks"
-            
+            unless ((length of "\%code") > 0):
-            if (%condition == "else"):
+                compile error at %line.source "Can't have an 'else' block without a preceeding condition"
-                assume (not %is_first) or barf "'else' clause cannot be first in 'when % = ?' block"
+            to %code write "\nelse\n    \(%action as lua statements)"
-                to %code write "\nelse\n    "
+            %else_allowed = (no)
-                to %code write (%action as lua statements)
-                %seen_else = (yes)
         ..else:
-                assume (not %seen_else) or barf "'else' clause needs to be last in 'when' block"
+            to %code write "\%clause "
-                lua> "table.insert(\%fallthroughs, \(%condition as lua expr))"
+            for %i in 1 to ((length of %line) - 1):
-                to %code write "\("if" if %is_first else "\nelseif") "
+                unless (%line.%i is syntax tree):
-                for %i = %condition in %fallthroughs:
+                    compile error at %line.source ".."
+                        Invalid condition for 'if' statement:
+                        %s
                 if (%i > 1): to %code write " or "
-                    to %code write %condition
+                to %code write (%line.%i as lua expr)
+            to %code write " then\n    \(%action as lua statements)"
+            %clause = "\nelseif"
     
-                to %code write " then\n    "
+    if ((length of "\%code") == 0):
-                to %code write (%action as lua statements)
+        compile error at %body.source "'if' block has an empty body"
-            
-            %fallthroughs = []
-            %is_first = (no)
-    
-    assume (%fallthroughs == []) or barf "Unfinished fallthrough conditions in 'when' block"
-    assume ((length of "\%code") > 0) or barf "Empty body for 'when' block"
     to %code write "\nend --when"
     return %code
 
-
 # Switch statement
-compile [when %branch_value = ? %body, when %branch_value is? %body] to:
+compile [if %branch_value is %body, when %branch_value is %body] to:
     %code = (Lua "")
-    %fallthroughs = []
+    %clause = "if"
-    %is_first = (yes)
+    %else_allowed = (yes)
-    %seen_else = (no)
+    unless (%body.type is "Block"): compile error at %body.source "'if' expected a Block, but got: %s"
-    %branches = (%body if (%body.type == "Block") else [%body])
+    for %line in %body:
-    for %func_call in %branches:
+        unless (..)
-        assume (%func_call.type is "Action") or barf "Invalid format for 'when' statement. Only '*' blocks are allowed."
+            ((%line.type is "Action") and ((length of %line) >= 2))
-        with {%star: %func_call.1, %condition: %func_call.2, %action: %func_call.3}:
+            ..and (%line.(length of %line) is "Block" syntax tree)
-            assume (%star == "*") or barf "Invalid format for 'when' statement. Lines must begin with '*'"
+        ..:
-            assume %condition or barf ".."
+            compile error at %line.source ".."
-                Invalid format for 'when' statement. Lines must begin with '*' and have a condition \
+                Invalid line for 'if % is % %', each line should contain expressions \
-                ..or the word "else"
+                ..followed by a block, or "else" followed by a block:
-            
+                %s
-            if (%action is (nil)):
+        %action = %line.(length of %line)
-                lua> "table.insert(\%fallthroughs, \(%condition as lua expr))"
+        if ((%line.1 is "else") and ((length of %line) == 2)):
-                do next %func_call
+            unless %else_allowed: compile error at %line.source "Can't have two 'else' blocks"
-            
+            unless ((length of "\%code") > 0):
-            if (%condition == "else"):
+                compile error at %line.source "Can't have an 'else' block without a preceeding condition"
-                assume (not %is_first) or barf "'else' clause cannot be first in 'when % = ?' block"
+            to %code write "\nelse\n    \(%action as lua statements)"
-                to %code write "\nelse\n    "
+            %else_allowed = (no)
-                to %code write (%action as lua statements)
         ..else:
-                assume (not %seen_else) or barf "'else' clause needs to be last in 'when % = ?' block"
+            to %code write "\%clause "
-                to %code write "\("if" if %is_first else "\nelseif") "
+            for %i in 1 to ((length of %line) - 1):
-                lua> "table.insert(\%fallthroughs, \(%condition as lua expr))"
+                unless (%line.%i is syntax tree):
-                for %i = % in %fallthroughs:
+                    compile error at %line.source ".."
+                        Invalid condition for 'if' statement:
+                        %s
                 if (%i > 1): to %code write " or "
-                    if ((%.type is "Text") or (%.type is "Number")):
+                to %code write "branch_value == \(%line.%i as lua expr)"
-                        to %code write "branch_value == \%"
+            to %code write " then\n    \(%action as lua statements)"
-                    ..else: to %code write "utils.equivalent(branch_value, \%)"
+            %clause = "\nelseif"
     
-                to %code write "then\n    "
+    if ((length of "\%code") == 0):
-                to %code write (%action as lua statements)
+        compile error at %body.source "'if % is % %' block has an empty body"
-        
+    to %code write "\nend --when"
-        %fallthroughs = []
+    return (..)
-        %is_first = (no)
-    
-    assume (%fallthroughs == []) or barf "Unfinished fallthrough conditions in 'when' block"
-    assume ((length of "\%code") > 0) or barf "No body for 'when % = ?' block!"
-    to %code write "\nend"
-    %code = (..)
         Lua ".."
-            do --when % = ?
+            do --if % is
                 local branch_value = \(%branch_value as lua expr)
                 \%code
-            end --when % = ?
+            end --if % is
-    
-    return %code
-
 
 # Do/finally
 compile [do %action] to (..)

core/coroutines.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file defines the code that creates and manipulates coroutines
 

core/errors.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file contains basic error reporting code
 
@@ -7,6 +7,9 @@ compile [traceback] to (Lua value "debug.traceback()")
 compile [traceback %] to (Lua value "debug.traceback('', \(% as lua expr))")
 compile [barf] to (Lua "error(nil, 0);")
 compile [barf %msg] to (Lua "error(\(%msg as lua expr), 0);")
+compile [compile error at %source %msg] to (..)
+    Lua "nomsu:compile_error(\(%source as lua expr), \(%msg as lua expr))"
+
 compile [assume %condition] to:
     lua> ".."
         local \%assumption = 'Assumption failed: '..tostring(nomsu:tree_to_nomsu(\%condition))

core/io.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file contains basic input/output code
 

core/math.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file defines some common math literals and functions
 

core/metaprogramming.nom

@@ -1,9 +1,9 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This File contains actions for making actions and compile-time actions and some helper
     functions to make that easier.
 
-lua> "NOMSU_CORE_VERSION = 3"
+lua> "NOMSU_CORE_VERSION = 4"
 lua> ".."
     nomsu.COMPILE_ACTIONS["% -> %"] = function(nomsu, tree, \%args, \%body)
         local lua = LuaCode.Value(tree.source, "function(")
@@ -119,8 +119,16 @@ compile [parse %actions as %body] to (..)
         local ret = \(compile as (compile %actions to %new_body))
         return ret
 
-compile [%tree as lua expr] to (..)
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-    Lua value "nomsu:compile(\(=lua "nomsu:compile(\%tree):as_expr()")):as_expr()"
+
+action [%tree as lua expr]:
+    lua> ".."
+        \%tree_lua = nomsu:compile(\%tree)
+        if not \%tree_lua.is_value then
+            nomsu:compile_error(\%tree.source, "Could not convert %s to a Lua expression",
+                nomsu:tree_to_nomsu(\%tree))
+        end
+        return \%tree_lua
 
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 

core/operators.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file contains definitions of operators like "+" and "and".
 
@@ -147,21 +147,29 @@ compile [%x wrapped around %y, %x mod %y] to (..)
 # (uses a lambda to avoid re-evaluating middle value, while still being an expression)
 parse [%x < %y < %z] as (..)
     =lua "(function(x,y,z) return x <  y and y <  z; end)(\%x,\%y,\%z)"
+
 parse [%x <= %y < %z] as (..)
     =lua "(function(x,y,z) return x <= y and y <  z; end)(\%x,\%y,\%z)"
+
 parse [%x < %y <= %z] as (..)
     =lua "(function(x,y,z) return x <  y and y <= z; end)(\%x,\%y,\%z)"
+
 parse [%x <= %y <= %z] as (..)
     =lua "(function(x,y,z) return x <= y and y <= z; end)(\%x,\%y,\%z)"
+
 parse [%x > %y > %z] as (..)
     =lua "(function(x,y,z) return x >  y and y >  z; end)(\%x,\%y,\%z)"
+
 parse [%x >= %y > %z] as (..)
     =lua "(function(x,y,z) return x >= y and y >  z; end)(\%x,\%y,\%z)"
+
 parse [%x > %y >= %z] as (..)
     =lua "(function(x,y,z) return x >  y and y >= z; end)(\%x,\%y,\%z)"
+
 parse [%x >= %y >= %z] as (..)
     =lua "(function(x,y,z) return x >= y and y >= z; end)(\%x,\%y,\%z)"
 
+
 # TODO: optimize for common case where x,y,z are all either variables or number literals
 # Boolean Operators
 compile [%x and %y] to (Lua value "(\(%x as lua expr) and \(%y as lua expr))")

core/scopes.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file contains definitions pertaining to variable scoping
 
@@ -8,17 +8,16 @@ use "core/collections.nom"
 use "core/control_flow.nom"
 compile [with local %locals %body, with local %locals do %body] to:
     %body_lua = (%body as lua statements)
-    when %locals.type = ?:
+    if %locals.type is:
-        * "Dict":
+        "Dict":
             %body_lua = (..)
                 Lua "\(compile as (<- %locals))\n\%body_lua"
             
             declare locals ("\(%.1 as lua)" for % in %locals) in %body_lua
         
-        * "List": declare locals ("\(% as lua)" for % in %locals) in %body_lua
+        "List": declare locals ("\(% as lua)" for % in %locals) in %body_lua
-        * "Var"
+        "Var" "Action": declare locals ["\(%locals as lua)"] in %body_lua
-        * "Action": declare locals ["\(%locals as lua)"] in %body_lua
+        else: compile error at %locals.source "Unexpected locals: %s"
-        *else (barf "Unexpected local: \(%locals as nomsu)")
     
     return (..)
         Lua "do\n    \%body_lua\nend"

core/text.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file contains some definitions of text escape sequences, including ANSI console
     color codes.

lib/consolecolor.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file defines actions for ANSI console color escape codes.
 

lib/file_hash.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file defines some actions for hashing files and looking up files by hash.
 

lib/object.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file contains the implementation of an Object-Oriented programming system.
 

lib/os.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file defines some actions that interact with the operating system and filesystem.
 

lib/training_wheels.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     This file contains a set of definitions that bring some familiar language features
     from other languages into nomsu (e.g. "==" and "continue")
@@ -11,7 +11,7 @@ parse [%a === %b] as ((%a 's id) is (%b 's id))
 parse [%a !== %b] as ((%a 's id) is not (%b 's id))
 parse [%a mod %b] as (%a wrapped around %b)
 parse [function %names %body, def %names %body] as (action %names %body)
-parse [switch %branch_value %body] as (when %branch_value = ? %body)
+parse [switch %branch_value %body] as (if %branch_value is: %body)
 parse [None, Null] as (nil)
 parse [True, true] as (yes)
 parse [False, false] as (no)

lib/version.nom

@@ -1,3 +1,3 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 # This file sets the current library version.
 lua> "NOMSU_LIB_VERSION = 3"

nomsu_compiler.lua

@@ -227,18 +227,19 @@ do
   })
   NomsuCompiler.LOADED = { }
   NomsuCompiler.AST = AST
-  NomsuCompiler.compile_error = function(self, tok, err_format_string, ...)
+  NomsuCompiler.compile_error = function(self, source, err_format_string, ...)
-    local file = files.read(tok.source.filename)
+    err_format_string = err_format_string:gsub("%%[^s]", "%%%1")
+    local file = files.read(source.filename)
     local line_starts = files.get_line_starts(file)
-    local line_no = files.get_line_number(file, tok.source.start)
+    local line_no = files.get_line_number(file, source.start)
     local line_start = line_starts[line_no]
-    local src = colored.dim(file:sub(line_start, tok.source.start - 1))
+    local src = colored.dim(file:sub(line_start, source.start - 1))
-    src = src .. colored.underscore(colored.bright(colored.red(file:sub(tok.source.start, tok.source.stop - 1))))
+    src = src .. colored.underscore(colored.bright(colored.red(file:sub(source.start, source.stop - 1))))
-    local end_of_line = (line_starts[files.get_line_number(file, tok.source.stop) + 1] or 0) - 1
+    local end_of_line = (line_starts[files.get_line_number(file, source.stop) + 1] or 0) - 1
-    src = src .. colored.dim(file:sub(tok.source.stop, end_of_line - 1))
+    src = src .. colored.dim(file:sub(source.stop, end_of_line - 1))
     src = '    ' .. src:gsub('\n', '\n    ')
     local err_msg = err_format_string:format(src, ...)
-    return error(tostring(tok.source.filename) .. ":" .. tostring(line_no) .. ": " .. err_msg, 0)
+    return error(tostring(source.filename) .. ":" .. tostring(line_no) .. ": " .. err_msg, 0)
   end
   local math_expression = re.compile([[ ([+-] " ")* "%" (" " [*/^+-] (" " [+-])* " %")+ !. ]])
   local add_lua_bits
@@ -256,7 +257,7 @@ do
         else
           local bit_lua = self:compile(bit)
           if not (bit_lua.is_value) then
-            self:compile_error(bit, "Cannot use:\n%s\nas a string interpolation value, since it's not an expression.")
+            self:compile_error(bit.source, "Cannot use:\n%s\nas a string interpolation value, since it's not an expression.")
           end
           lua:append(bit_lua)
         end
@@ -289,7 +290,7 @@ do
         else
           local bit_lua = self:compile(bit)
           if not (bit_lua.is_value) then
-            self:compile_error(bit, "Cannot use:\n%s\nas a string interpolation value, since it's not an expression.")
+            self:compile_error(bit.source, "Cannot use:\n%s\nas a string interpolation value, since it's not an expression.")
           end
           add_bit_lua(lua, bit_lua)
         end
@@ -308,7 +309,7 @@ do
         else
           local tok_lua = self:compile(tok)
           if not (tok_lua.is_value) then
-            self:compile_error(tok, "Non-expression value inside math expression:\n%s")
+            self:compile_error(tok.source, "Non-expression value inside math expression:\n%s")
           end
           if tok.type == "Action" then
             tok_lua:parenthesize()
@@ -456,7 +457,7 @@ do
       source = nil
     end
     local lua_string = tostring(lua)
-    local run_lua_fn, err = load(lua_string, tostring(source or lua.source), "t", self)
+    local run_lua_fn, err = load(lua_string, nil and tostring(source or lua.source), "t", self)
     if not run_lua_fn then
       local line_numbered_lua = concat((function()
         local _accum_0 = { }
@@ -540,7 +541,7 @@ do
           end
           local ret = compile_action(self, tree, unpack(args))
           if not ret then
-            self:compile_error(tree, "Compile-time action:\n%s\nfailed to produce any Lua")
+            self:compile_error(tree.source, "Compile-time action:\n%s\nfailed to produce any Lua")
           end
           return ret
         end
@@ -556,7 +557,7 @@ do
           end
           local arg_lua = self:compile(tok)
           if not (arg_lua.is_value) then
-            self:compile_error(tok, "Cannot use:\n%s\nas an argument to %s, since it's not an expression, it produces: %s", stub, repr(arg_lua))
+            self:compile_error(tok.source, "Cannot use:\n%s\nas an argument to %s, since it's not an expression, it produces: %s", stub, repr(arg_lua))
           end
           insert(args, arg_lua)
           _continue_0 = true
@@ -624,7 +625,7 @@ do
           if not (bit_lua.is_value) then
             local src = '    ' .. gsub(tostring(recurse(bit)), '\n', '\n    ')
             local line = tostring(bit.source.filename) .. ":" .. tostring(files.get_line_number(files.read(bit.source.filename), bit.source.start))
-            self:compile_error(bit, "Cannot use:\n%s\nas a string interpolation value, since it's not an expression.")
+            self:compile_error(bit.source, "Cannot use:\n%s\nas a string interpolation value, since it's not an expression.")
           end
           if #lua.bits > 0 then
             lua:append("..")
@@ -655,7 +656,7 @@ do
       for i, item in ipairs(tree) do
         local item_lua = self:compile(item)
         if not (item_lua.is_value) then
-          self:compile_error(item, "Cannot use:\n%s\nas a list item, since it's not an expression.")
+          self:compile_error(item.source, "Cannot use:\n%s\nas a list item, since it's not an expression.")
         end
         items[i] = item_lua
       end
@@ -680,11 +681,11 @@ do
       local key, value = tree[1], tree[2]
       local key_lua = self:compile(key)
       if not (key_lua.is_value) then
-        self:compile_error(tree[1], "Cannot use:\n%s\nas a dict key, since it's not an expression.")
+        self:compile_error(tree[1].source, "Cannot use:\n%s\nas a dict key, since it's not an expression.")
       end
       local value_lua = value and self:compile(value) or LuaCode.Value(key.source, "true")
       if not (value_lua.is_value) then
-        self:compile_error(tree[2], "Cannot use:\n%s\nas a dict value, since it's not an expression.")
+        self:compile_error(tree[2].source, "Cannot use:\n%s\nas a dict value, since it's not an expression.")
       end
       local key_str = match(tostring(key_lua), [=[["']([a-zA-Z_][a-zA-Z0-9_]*)['"]]=])
       if key_str then
@@ -697,7 +698,7 @@ do
     elseif "IndexChain" == _exp_0 then
       local lua = self:compile(tree[1])
       if not (lua.is_value) then
-        self:compile_error(tree[1], "Cannot index:\n%s\nsince it's not an expression.")
+        self:compile_error(tree[1].source, "Cannot index:\n%s\nsince it's not an expression.")
       end
       local first_char = sub(tostring(lua), 1, 1)
       if first_char == "{" or first_char == '"' or first_char == "[" then
@@ -707,7 +708,7 @@ do
         local key = tree[i]
         local key_lua = self:compile(key)
         if not (key_lua.is_value) then
-          self:compile_error(key, "Cannot use:\n%s\nas an index, since it's not an expression.")
+          self:compile_error(key.source, "Cannot use:\n%s\nas an index, since it's not an expression.")
         end
         local key_lua_str = tostring(key_lua)
         do
@@ -833,7 +834,7 @@ do
         return nomsu
       else
         local pos = tree.source.start
-        local nomsu = NomsuCode(tree.source, pop_comments(pos, '\n'))
+        local nomsu = NomsuCode(tree.source, pop_comments(pos))
         local next_space = ""
         for i, bit in ipairs(tree) do
           if match(next_space, '\n') then

nomsu_compiler.moon

@@ -124,18 +124,19 @@ with NomsuCompiler
     .LOADED = {}
     .AST = AST
 
-    .compile_error = (tok, err_format_string, ...)=>
+    .compile_error = (source, err_format_string, ...)=>
-        file = files.read(tok.source.filename)
+        err_format_string = err_format_string\gsub("%%[^s]", "%%%1")
+        file = files.read(source.filename)
         line_starts = files.get_line_starts(file)
-        line_no = files.get_line_number(file, tok.source.start)
+        line_no = files.get_line_number(file, source.start)
         line_start = line_starts[line_no]
-        src = colored.dim(file\sub(line_start, tok.source.start-1))
+        src = colored.dim(file\sub(line_start, source.start-1))
-        src ..= colored.underscore colored.bright colored.red(file\sub(tok.source.start, tok.source.stop-1))
+        src ..= colored.underscore colored.bright colored.red(file\sub(source.start, source.stop-1))
-        end_of_line = (line_starts[files.get_line_number(file, tok.source.stop) + 1] or 0) - 1
+        end_of_line = (line_starts[files.get_line_number(file, source.stop) + 1] or 0) - 1
-        src ..= colored.dim(file\sub(tok.source.stop, end_of_line-1))
+        src ..= colored.dim(file\sub(source.stop, end_of_line-1))
         src = '    '..src\gsub('\n', '\n    ')
         err_msg = err_format_string\format(src, ...)
-        error("#{tok.source.filename}:#{line_no}: "..err_msg, 0)
+        error("#{source.filename}:#{line_no}: "..err_msg, 0)
 
     -- This is a bit of a hack, but this code handles arbitrarily complex
     -- math expressions like 2*x + 3^2 without having to define a single
@@ -154,7 +155,7 @@ with NomsuCompiler
                 else
                     bit_lua = @compile(bit)
                     unless bit_lua.is_value
-                        @compile_error bit,
+                        @compile_error bit.source,
                             "Cannot use:\n%s\nas a string interpolation value, since it's not an expression."
                     lua\append bit_lua
             return lua
@@ -178,7 +179,7 @@ with NomsuCompiler
                 else
                     bit_lua = @compile(bit)
                     unless bit_lua.is_value
-                        @compile_error bit,
+                        @compile_error bit.source,
                             "Cannot use:\n%s\nas a string interpolation value, since it's not an expression."
                     add_bit_lua(lua, bit_lua)
             lua\append ")"
@@ -194,7 +195,7 @@ with NomsuCompiler
                 else
                     tok_lua = @compile(tok)
                     unless tok_lua.is_value
-                        @compile_error tok, "Non-expression value inside math expression:\n%s"
+                        @compile_error tok.source, "Non-expression value inside math expression:\n%s"
                     if tok.type == "Action"
                         tok_lua\parenthesize!
                     lua\append tok_lua
@@ -293,7 +294,7 @@ with NomsuCompiler
 
     .run_lua = (lua, source=nil)=>
         lua_string = tostring(lua)
-        run_lua_fn, err = load(lua_string, tostring(source or lua.source), "t", self)
+        run_lua_fn, err = load(lua_string, nil and tostring(source or lua.source), "t", self)
         if not run_lua_fn
             line_numbered_lua = concat(
                 [format("%3d|%s",i,line) for i, line in ipairs files.get_lines(lua_string)],
@@ -340,7 +341,7 @@ with NomsuCompiler
                     -- TODO: use tail call?
                     ret = compile_action(@, tree, unpack(args))
                     if not ret
-                        @compile_error tree,
+                        @compile_error tree.source,
                             "Compile-time action:\n%s\nfailed to produce any Lua"
                     return ret
 
@@ -350,7 +351,7 @@ with NomsuCompiler
                     if type(tok) == "string" then continue
                     arg_lua = @compile(tok)
                     unless arg_lua.is_value
-                        @compile_error tok,
+                        @compile_error tok.source,
                             "Cannot use:\n%s\nas an argument to %s, since it's not an expression, it produces: %s",
                             stub, repr arg_lua
                     insert args, arg_lua
@@ -387,7 +388,7 @@ with NomsuCompiler
                     unless bit_lua.is_value
                         src = '    '..gsub(tostring(recurse(bit)), '\n','\n    ')
                         line = "#{bit.source.filename}:#{files.get_line_number(files.read(bit.source.filename), bit.source.start)}"
-                        @compile_error bit,
+                        @compile_error bit.source,
                             "Cannot use:\n%s\nas a string interpolation value, since it's not an expression."
                     if #lua.bits > 0 then lua\append ".."
                     if bit.type != "Text"
@@ -408,7 +409,7 @@ with NomsuCompiler
                 for i, item in ipairs tree
                     item_lua = @compile(item)
                     unless item_lua.is_value
-                        @compile_error item,
+                        @compile_error item.source,
                             "Cannot use:\n%s\nas a list item, since it's not an expression."
                     items[i] = item_lua
                 lua\concat_append(items, ", ", ",\n  ")
@@ -425,11 +426,11 @@ with NomsuCompiler
                 key, value = tree[1], tree[2]
                 key_lua = @compile(key)
                 unless key_lua.is_value
-                    @compile_error tree[1],
+                    @compile_error tree[1].source,
                         "Cannot use:\n%s\nas a dict key, since it's not an expression."
                 value_lua = value and @compile(value) or LuaCode.Value(key.source, "true")
                 unless value_lua.is_value
-                    @compile_error tree[2],
+                    @compile_error tree[2].source,
                         "Cannot use:\n%s\nas a dict value, since it's not an expression."
                 -- TODO: support arbitrary words here, like operators and unicode
                 key_str = match(tostring(key_lua), [=[["']([a-zA-Z_][a-zA-Z0-9_]*)['"]]=])
@@ -446,7 +447,7 @@ with NomsuCompiler
             when "IndexChain"
                 lua = @compile(tree[1])
                 unless lua.is_value
-                    @compile_error tree[1],
+                    @compile_error tree[1].source,
                         "Cannot index:\n%s\nsince it's not an expression."
                 first_char = sub(tostring(lua),1,1)
                 if first_char == "{" or first_char == '"' or first_char == "["
@@ -456,7 +457,7 @@ with NomsuCompiler
                     key = tree[i]
                     key_lua = @compile(key)
                     unless key_lua.is_value
-                        @compile_error key,
+                        @compile_error key.source,
                             "Cannot use:\n%s\nas an index, since it's not an expression."
                     key_lua_str = tostring(key_lua)
                     if lua_id = match(key_lua_str, "^['\"]([a-zA-Z_][a-zA-Z0-9_]*)['\"]$")
@@ -539,7 +540,7 @@ with NomsuCompiler
                     return nomsu
                 else
                     pos = tree.source.start
-                    nomsu = NomsuCode(tree.source, pop_comments(pos, '\n'))
+                    nomsu = NomsuCode(tree.source, pop_comments(pos))
                     next_space = ""
                     for i,bit in ipairs tree
                         if match(next_space, '\n')

tests/collections.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #..
     Tests for the stuff defined in core/control_flow.nom
 use "core"

tests/colors.nom

@@ -1,3 +1,3 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 use "lib/consolecolor.nom"
 say (bright (green "Color test passed."))

tests/control_flow.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     Tests for the stuff defined in core/control_flow.nom
 
@@ -107,37 +107,35 @@ for %key = %value in {x: 1, y: 2}:
     do next %value
     barf "skipping value failed"
 
-action [barfer] (barf "this should never be reached")
+action [barfer]: barf "this should never be reached"
-when:
+if:
-    * (no) (barf "'when' fail")
+    (no): barf "'when' fail"
-    * (no)
+    (no) (3 > 4): barf "'when' fail 2"
-    * (3 > 4) (barf "'when' fail 2")
+    (yes) (barfer): do nothing
-    * (yes)
+    (99 > 1): barf "Fell through incorrectly"
-    * (barfer) (do nothing)
-    * (99 > 1) (barf "Fell through incorrectly")
 
 %else_worked = (no)
-when:
+if:
-    * (no) (barf)
+    (no): barf
-    *else (%else_worked = (yes))
+    else: %else_worked = (yes)
+
+
 
 assume %else_worked or barf "when..else failed"
-action [test when scope] (when (* (yes) (%leaked = (yes))))
+action [test when scope]:
+    if (yes): %leaked = (yes)
 test when scope
 assume (not %leaked) or barf "'when' is leaking locals"
 %when_worked = (no)
-when 4 = ?:
+if 4 is:
-    * 1
+    1 2: barf "'when = ?' fail"
-    * 2 (barf "'when = ?' fail")
+    3 4 (barfer): %when_worked = (yes)
-    * 3
-    * 4
-    * (barfer) (%when_worked = (yes))
 
 assume %when_worked
 %when_worked = (no)
-when 5 = ?:
+if 5 is:
-    * 6 (barf)
+    6: barf
-    *else (%when_worked = (yes))
+    else: %when_worked = (yes)
 
 assume %when_worked
 %x = 1
@@ -150,7 +148,6 @@ assume (..)
             for % in [1, 2, 3]: %n += %
             return %n
     .. == 6
-
 %t = [1, [2, [[3], 4], 5, [[[6]]]]]
 %flat = []
 for % in recursive %t:

tests/coroutines.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     Tests for the stuff defined in core/control_flow.nom
 

tests/errors.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     Tests for the stuff defined in core/errors.nom
 

tests/inner/inner.nom

@@ -1,3 +1,3 @@
-#!/usr/bin/env nomsu -V1
+#!/usr/bin/env nomsu -V2.4.4.3
 use "core"
 say "Inner directory 'use' test passed."

tests/math.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #..
     Tests for the stuff defined in core/control_flow.nom
 use "core"

tests/metaprogramming.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     Tests for the stuff defined in core/metaprogramming.nom
 

tests/object.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     Tests for the object model defined in lib/object.nom
 

tests/operators.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #..
     Tests for the stuff defined in core/operators.nom
 use "core"

tests/os.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #
     Tests for the stuff defined in lib/os.nom
 

tests/scopes.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 use "core"
 %x = "outer"
 with local %x:

tests/text.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env nomsu -V2.3.4.3
+#!/usr/bin/env nomsu -V2.4.4.3
 #..
     Tests for the stuff defined in core/text.nom
 use "core"
@@ -40,10 +40,9 @@ assume (..)
     ..== "one\ntwo"
 
 assume ("nogap" == "nogap")
+
 #comment
 #
     block comment
 
-
-
 say "Text test passed."

tools/upgrade.nom

@@ -1,4 +1,4 @@
-#!/usr/bin/env Nomsu -V2.3.4.3
+#!/usr/bin/env Nomsu -V2.4.4.3
 use "core"
 use "compatibility"
 use "lib/os.nom"
@@ -8,14 +8,25 @@ use "lib/os.nom"
 if (%args.1 is "-i"):
     %inplace = (yes)
     remove index 1 from %args
+if (%args.1 is "-t"):
+    use "lib/consolecolor.nom"
+    %test = (yes)
+    remove index 1 from %args
 for %path in %args:
     if (%path is "-i"): %inplace = (yes)
     for file %filename in %path:
         %tree = (parse (read file %filename) from %filename)
-        %tree = (%tree upgraded from %tree.version to (Nomsu version))
+        %uptree = (%tree upgraded from %tree.version to (Nomsu version))
-        %text = "#!/usr/bin/env nomsu -V\(Nomsu version)\n\(%tree as nomsu)"
+        %text = "#!/usr/bin/env nomsu -V\(Nomsu version)\n\(%uptree as nomsu)"
-        if %inplace:
+        if:
+            %inplace:
+                say "Upgraded \%filename"
                 write %text to file %filename
+            %test:
+                if (%uptree == %tree):
+                    say (dim "\%filename will not be changed")
                 ..else:
+                    say (bright "\%filename will be changed")
+            else:
                 say %text