hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changed the binop check in the reader code
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan 2024-04-17 14:33:24 +09:00
parent 9b42b989fa
commit e0083b4453
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/read.c
View File

@ -1473,8 +1473,16 @@ static int feed_process_token (hcl_t* hcl)
case HCL_TOK_BINOP: case HCL_TOK_BINOP:
{ {
int can = 0; int can = 0;
if (frd->level <= 0 || !(can = can_binop_list(hcl))) if (frd->level <= 0)
{ {
HCL_ASSERT (hcl, hcl->c->r.st == HCL_NULL);
/*if (hcl->c->r.st) goto banned_binop;*/
/* very first even before entering a list including an auto-forged list */
can = 1;
}
else if (!(can = can_binop_list(hcl)))
{
banned_binop:
hcl_setsynerrbfmt (hcl, HCL_SYNERR_BANNED, TOKEN_LOC(hcl), TOKEN_NAME(hcl), "prohibited binary operator"); hcl_setsynerrbfmt (hcl, HCL_SYNERR_BANNED, TOKEN_LOC(hcl), TOKEN_NAME(hcl), "prohibited binary operator");
goto oops; goto oops;
} }