fixed a bug in compile_do()

2022-08-01 06:31:33 +00:00
parent 1bf908e6ba
commit e8acc7cd5b
3 changed files with 12 additions and 17 deletions
--- a/lib/comp.c
+++ b/lib/comp.c
@ -1911,8 +1911,8 @@ static int compile_do (hcl_t* hcl, hcl_cnode_t* src)
 	HCL_ASSERT (hcl, HCL_CNODE_IS_CONS(src));
 	HCL_ASSERT (hcl, HCL_CNODE_IS_SYMBOL_SYNCODED(HCL_CNODE_CONS_CAR(src), HCL_SYNCODE_DO));

-	cmd = HCL_CNODE_CONS_CDR(src);
-	obj = HCL_CNODE_CONS_CDR(src);
+	cmd = HCL_CNODE_CONS_CAR(src); /* do itself */
+	obj = HCL_CNODE_CONS_CDR(src); /* expression list after it */

 	if (!obj)
 	{