implemented multiple return values assignment with set-r

2021-05-15 05:31:36 +00:00
parent ebda2ffa0a
commit b1f7ab6538
5 changed files with 189 additions and 19 deletions
--- a/lib/hcl.h
+++ b/lib/hcl.h
@ -1441,6 +1441,7 @@ struct hcl_t
 	hcl_oop_t _return; /* symbol */
 	hcl_oop_t _return_from_home; /* symbol */
 	hcl_oop_t _set;    /* symbol */
+	hcl_oop_t _set_r;  /* symbol */
 	hcl_oop_t _throw;  /* symbol */
 	hcl_oop_t _try;    /* symbol */
 	hcl_oop_t _until;  /* symbol */
@ -1717,6 +1718,7 @@ enum hcl_syncode_t
 	HCL_SYNCODE_RETURN,
 	HCL_SYNCODE_RETURN_FROM_HOME,
 	HCL_SYNCODE_SET,
+	HCL_SYNCODE_SET_R,
 	HCL_SYNCODE_THROW,
 	HCL_SYNCODE_TRY,
 	HCL_SYNCODE_UNTIL,