From 107581017b3c63fd7ef38adeb164423932c6e809 Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <mike.gerwitz@rtspecialty.com>
Date: Thu, 4 Jan 2018 14:36:22 -0500
Subject: [PATCH] Support constant refs with lv:match/@on

We've never done this before (thus this bug lasting so many years), but only
because it doesn't really make much sense in practice; this was caught when
writing test cases.

* src/current/compiler/js.xsl (compile)[lv:match]: Compile `consts' instead
    of `args' when referencing a constant.
---
 src/current/compiler/js.xsl | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/current/compiler/js.xsl b/src/current/compiler/js.xsl
index 149b7ac6..2b5c3f9c 100644
--- a/src/current/compiler/js.xsl
+++ b/src/current/compiler/js.xsl
@@ -710,6 +710,9 @@
 
   <variable name="name" select="@on" />
 
+  <variable name="sym-on" as="element( preproc:sym )"
+            select="root(.)/preproc:symtable/preproc:sym[ @name = $name ]" />
+
   <text> tmp = </text>
 
   <variable name="input-raw">
@@ -721,7 +724,16 @@
       </when>
 
       <otherwise>
-        <text>args['</text>
+        <choose>
+          <when test="$sym-on/@type = 'const'">
+            <text>consts</text>
+          </when>
+          <otherwise>
+            <text>args</text>
+          </otherwise>
+        </choose>
+
+        <text>['</text>
           <value-of select="translate( @on, &quot;'&quot;, '' )" />
         <text>']</text>
       </otherwise>