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

simple reformatting

Browse Source
This commit is contained in:
hyung-hwan
2025-09-21 11:03:34 +09:00
parent f8f063a68c
commit 013dbb9e5c
1 changed files with 19 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bin/hak.c
View File

@ -579,7 +579,7 @@ static int on_fed_cnode_in_batch_mode (hak_t* hak, hak_cnode_t* obj)
#if defined(USE_ISOCLINE) #if defined(USE_ISOCLINE)
static int get_line (hak_t* hak, xtn_t* xtn, FILE* fp) static int get_line (hak_t* hak, xtn_t* xtn, FILE* fp)
{ {
char* inp, * p; char* inp;
static int inited = 0; static int inited = 0;
if (!inited) if (!inited)
@ -742,9 +742,13 @@ static int feed_loop (hak_t* hak, xtn_t* xtn, int verbose)
} }
else else
{ {
HAK_ASSERT(hak, hak_getbclen(hak) == 0);
/* usually this part is reached if the input string is /* usually this part is reached if the input string is
* one or more whilespaces and/or comments only */ * one or more whilespaces and/or comments only.
* ------------------------------------------------------
* if the previous compiled code has not been cleared (e.g.
* hcl_compile() ever called with HCL_COMPILE_CLEAR_CODE
* or hcl_clearcode() explicitly called), hak_getbcllen(hak)
* may still return a positive number greater than 0. */
} }
show_prompt (hak, 0); /* show prompt after execution */ show_prompt (hak, 0); /* show prompt after execution */
} }