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

added some comments

Browse Source
This commit is contained in:
hyung-hwan 2018-02-23 08:50:18 +00:00
parent 9498530691
commit a4be9907b7
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/comp.c
View File

@ -653,6 +653,7 @@ enum
static int compile_break (hcl_t* hcl, hcl_oop_t src) static int compile_break (hcl_t* hcl, hcl_oop_t src)
{ {
/* (break) */
hcl_oop_t obj; hcl_oop_t obj;
hcl_ooi_t i; hcl_ooi_t i;
@ -1116,6 +1117,14 @@ static int compile_do (hcl_t* hcl, hcl_oop_t src)
{ {
hcl_oop_t obj; 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); HCL_ASSERT (hcl, HCL_CONS_CAR(src) == hcl->_do);
obj = HCL_CONS_CDR(src); 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) 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_oop_t obj, cond;
hcl_oow_t cond_pos; hcl_oow_t cond_pos;
hcl_cframe_t* cf; hcl_cframe_t* cf;