From 3c85bbd3b8310924963426a2133112bbc706b363 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 23 Apr 2024 13:51:25 -0700
Subject: [PATCH] Exploding empty list -> identity

---
 src/modal.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/modal.c b/src/modal.c
index bdc5464..e8efb35 100644
--- a/src/modal.c
+++ b/src/modal.c
@@ -64,7 +64,7 @@ write_reg(char r, char *reg)
 		return 1;
 	case '*': { /* op: explode */
 		int i, depth = 0;
-		if(*reg == '(') { /* tuple */
+		if(*reg == '(' && reg[1] != ')') { /* tuple */
 			reg++;
 			while(reg < cap) {
 				while((c = *reg) && !spacer(c))