Exploding empty list -> identity

This commit is contained in:
Devine Lu Linvega 2024-04-23 13:51:25 -07:00
parent 14ce4eb176
commit 3c85bbd3b8
1 changed files with 1 additions and 1 deletions

View File

@ -64,7 +64,7 @@ write_reg(char r, char *reg)
return 1; return 1;
case '*': { /* op: explode */ case '*': { /* op: explode */
int i, depth = 0; int i, depth = 0;
if(*reg == '(') { /* tuple */ if(*reg == '(' && reg[1] != ')') { /* tuple */
reg++; reg++;
while(reg < cap) { while(reg < cap) {
while((c = *reg) && !spacer(c)) while((c = *reg) && !spacer(c))