Auto-upgraded code.

1 files changed, 19 insertions, 8 deletions

diff --git a/core/metaprogramming.nom b/core/metaprogramming.nom
index 6dea00f..180614b 100644
--- a/core/metaprogramming.nom
+++ b/core/metaprogramming.nom
@@ -210,13 +210,11 @@ test:
     [$1, $2] = [1, 2]
     swap $1 and $2
     assume (($1 == 2) and ($2 == 1)) or barf
-    .."'parse % as %' failed on 'swap % and %'"
-    
+        "'parse % as %' failed on 'swap % and %'"
     [$tmp, $tmp2] = [1, 2]
-    
     swap $tmp and $tmp2
     assume (($tmp == 2) and ($tmp2 == 1)) or barf
-    .."'parse % as %' variable mangling failed."
+        "'parse % as %' variable mangling failed."
 
 ($actions all parse as $body) compiles to:
     lua> ("
@@ -310,7 +308,12 @@ externally ($ is $kind syntax tree) means
 
 ($tree with $t -> $replacement) compiles to ("
     \($tree as lua expr):map(function(\($t as lua expr))
-        \(=lua "\$replacement.type == 'Block' and \($replacement as lua) or 'return '..\($replacement as lua expr)")
+        \(
+        =lua ("
+            \$replacement.type == 'Block' and \($replacement as lua) or 'return '..\
+            ..\($replacement as lua expr)
+        ")
+    )
     end)
 ")
 
@@ -360,7 +363,13 @@ externally (match $tree with $patt) means:
     ")
 
 test:
-    assume ((quote "one\n\"two\"") == "\"one\\n\\\"two\\\"\"")
+    assume
+        (
+            quote ("
+                one
+                "two"
+            ")
+        ) == "\"one\\n\\\"two\\\"\""
 
 (quote $s) compiles to "tostring(\($s as lua expr)):as_lua()"
 test:
@@ -400,7 +409,7 @@ test:
     assume (run \(return \(\(5) + \(5)))) == 10
 (run $nomsu_code) compiles to "run_1_in(\($nomsu_code as lua expr), _ENV)"
 [compile $block, compiled $block, $block compiled] all compile to
-.."compile(\($block as lua))"
+    "compile(\($block as lua))"
 
 test:
     (foo) means:
@@ -443,4 +452,6 @@ test:
 ")
 
 externally (Nomsu version) means:
-    return "\(Nomsu syntax version).\(core version).\(Nomsu compiler version).\(lib version)"
+    return ("
+        \(Nomsu syntax version).\(core version).\(Nomsu compiler version).\(lib version)
+    ")