From 938adbfe446e7f4a4e45b9dd27b5cf2e7ee4070c Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Wed, 20 Mar 2019 16:16:41 -0700
Subject: Switching more verbose ("Action" tree with "foo" $x) syntax to `(foo
 `$x) when possible

---
 lib/compatibility/2.nom | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/compatibility/2.nom')

diff --git a/lib/compatibility/2.nom b/lib/compatibility/2.nom
index 2deeca2..4dc867d 100644
--- a/lib/compatibility/2.nom
+++ b/lib/compatibility/2.nom
@@ -17,8 +17,7 @@ upgrade $tree to "2" as:
         unless ($false_body is "Block" syntax tree):
             $false_body = (=lua "Block(\$false_body.source, \$false_body)")
         
-        return
-            "Action" tree with "if" ($tree.2 upgraded) $true_body "else" $false_body
+        return `(if `($tree.2 upgraded) `$true_body else `$false_body)
     
     $need_blocks = [
         "if", "unless", "for 1 in", "for 1 = 2 in", "repeat while 1", "repeat 1 times"
-- 
cgit v1.2.3