From a4be9907b74af869b010bb9da8823439454ab90a Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Fri, 23 Feb 2018 08:50:18 +0000 Subject: [PATCH] added some comments --- lib/comp.c | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lib/comp.c b/lib/comp.c index 46335f0..d686617 100644 --- a/lib/comp.c +++ b/lib/comp.c @@ -653,6 +653,7 @@ enum static int compile_break (hcl_t* hcl, hcl_oop_t src) { + /* (break) */ hcl_oop_t obj; hcl_ooi_t i; @@ -1116,6 +1117,14 @@ static int compile_do (hcl_t* hcl, hcl_oop_t src) { hcl_oop_t obj; + /* (do + * (+ 10 20) + * (* 2 30) + * ... + * ) + * you can use this to combine multiple expressions to a single expression + */ + HCL_ASSERT (hcl, HCL_CONS_CAR(src) == hcl->_do); obj = HCL_CONS_CDR(src); @@ -1141,7 +1150,8 @@ static int compile_do (hcl_t* hcl, hcl_oop_t src) static int compile_while (hcl_t* hcl, hcl_oop_t src, int next_cop) { - /* (while (xxxx) ... ) */ + /* (while (xxxx) ... ) + * (until (xxxx) ... ) */ hcl_oop_t obj, cond; hcl_oow_t cond_pos; hcl_cframe_t* cf;