vere: fix -A

This commit is contained in:
Ted Blackman 2021-08-19 00:36:16 +03:00
parent ea1d30a506
commit e8055dba24
2 changed files with 3 additions and 1 deletions

View File

@ -825,6 +825,7 @@
# define c3__pang c3_s4('p','a','n','g')
# define c3__pank c3_s4('p','a','n','k')
# define c3__para c3_s4('p','a','r','a')
# define c3__park c3_s4('p','a','r','k')
# define c3__parq c3_s4('p','a','r','q')
# define c3__part c3_s4('p','a','r','t')
# define c3__pass c3_s4('p','a','s','s')

View File

@ -1708,7 +1708,8 @@ _pier_pill_parse(u3_noun pil)
while ( u3_nul != ova ) {
ovo = u3h(ova);
if ( c3__into == u3h(u3t(ovo)) ) {
u3_noun tag = u3h(u3t(ovo));
if ( ( c3__into == tag ) || ( c3__park == tag ) ) {
c3_assert( 0 == len_w );
len_w++;
ovo = u3t(pil_q);