Do not walk twice for explode

This commit is contained in:
Devine Lu Linvega 2024-04-13 16:22:37 -07:00
parent 70e96e9644
commit 42fd486a41
1 changed files with 2 additions and 4 deletions

View File

@ -47,16 +47,14 @@ put_reg(char r)
{
char c, *s = regs[(int)r];
if(r == '~') {
char buf;
/* special stdin */
while(fread(&buf, 1, 1, stdin) && buf >= ' ')
*outp_++ = buf;
while(fread(&c, 1, 1, stdin) && c >= ' ')
*outp_++ = c;
} else if(s) {
char *ss = walk(s);
if(r == '*') {
/* special implode */
if(*s == '(') {
ss = walk(s);
while(s < ss && (c = *s++))
if(!spacer(c)) *outp_++ = c;
}