From 00af7d49f09b4f3d52bdff6af772392cef0b25e0 Mon Sep 17 00:00:00 2001
From: Tyler Akins <fidian@rumkin.com>
Date: Fri, 21 Apr 2023 21:18:55 -0500
Subject: [PATCH] Bugfixes

---
 mo | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/mo b/mo
index 4776868..d782dfb 100755
--- a/mo
+++ b/mo
@@ -931,7 +931,7 @@ mo::isTruthy() {
 #
 # Returns nothing.
 mo::evaluate() {
-    local moTarget moStack moValue moType moStackSegment moIndex moCombined moResult
+    local moTarget moStack moValue moType moIndex moCombined moResult
 
     moTarget=$1
     shift
@@ -941,13 +941,12 @@ mo::evaluate() {
 
     while [[ $# -gt 0 ]]; do
         case "$1" in
-            PAREN|brace)
+            PAREN|BRACE)
                 moType=$1
                 moValue=$2
                 mo::debug "Combining $moValue tokens"
                 moIndex=$((${#moStack[@]} - (2 * moValue)))
-                moStackSegment=("${moStack[@]:$moIndex}")
-                mo::evaluateListOfSingles moCombined "${moStackSegment[@]}"
+                mo::evaluateListOfSingles moCombined "${moStack[@]:$moIndex}"
 
                 if [[ "$moType" == "PAREN" ]]; then
                     moStack=("${moStack[@]:0:$moIndex}" NAME "$moCombined")
@@ -1643,16 +1642,18 @@ mo::tokenizeTagContents() {
                 ;;
 
             '('*)
-                moResult=("${moResult[@]}" COMMAND "${MO_UNPARSED:0:1}")
+                # Do not tokenize the open paren - treat this as RPL
+                MO_UNPARSED=${MO_UNPARSED:1}
                 mo::tokenizeTagContents moTemp ')'
-                moResult=("${moResult[@]}" "${moTemp[@]}" PAREN "${#moTemp[@]}")
+                moResult=("${moResult[@]}" "${moTemp[@]}" PAREN "$((${#moTemp[@]} / 2))")
                 MO_UNPARSED=${MO_UNPARSED:1}
                 ;;
 
             '{'*)
-                moResult=("${moResult[@]}" COMMAND "${MO_UNPARSED:0:1}")
+                # Do not tokenize the open brace - treat this as RPL
+                MO_UNPARSED=${MO_UNPARSED:1}
                 mo::tokenizeTagContents moTemp '}'
-                moResult=("${moResult[@]}" "${moTemp[@]}" BRACE "${#moTemp[@]}")
+                moResult=("${moResult[@]}" "${moTemp[@]}" BRACE "$((${#moTemp[@]} / 2))")
                 MO_UNPARSED=${MO_UNPARSED:1}
                 ;;