more code to implement a new object reader

2021-01-10 16:04:36 +00:00
parent 8936bb5bec
commit 963f162c4e
4 changed files with 37 additions and 18 deletions
--- a/lib/read.c
+++ b/lib/read.c
@ -1693,7 +1693,7 @@ static hcl_oop_t chain_to_list (hcl_t* hcl, hcl_oop_t obj)
 		hcl_pushvolat (hcl, (hcl_oop_t*)&rsa);
 		cons = hcl_makecons(hcl, obj, hcl->_nil);
 		hcl_popvolat (hcl);
-		if (!cons) return HCL_NULL;
+		if (HCL_UNLIKELY(!cons)) return HCL_NULL;

 		if (HCL_IS_NIL(hcl, rsa->slot[0]))
 		{