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

added HCL_EUNDEFVAR

Browse Source
This commit is contained in:
hyung-hwan
2022-05-05 04:03:56 +00:00
parent c8905fc88e
commit ff089929a9
10 changed files with 114 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/comp.c
View File

@ -3220,7 +3220,7 @@ static HCL_INLINE int compile_catch (hcl_t* hcl)
static HCL_INLINE int post_try (hcl_t* hcl)
{
/* TODO: */
/* TODO: anything else? */
pop_cblk (hcl);
POP_CFRAME (hcl);
return 0;
@ -3810,7 +3810,7 @@ static HCL_INLINE int compile_symbol (hcl_t* hcl, hcl_cnode_t* obj)
cons = (hcl_oop_t)hcl_getatsysdic(hcl, sym);
if (!cons)
{
cons = (hcl_oop_t)hcl_putatsysdic(hcl, sym, hcl->_nil);
cons = (hcl_oop_t)hcl_putatsysdic(hcl, sym, hcl->_undef);
if (HCL_UNLIKELY(!cons)) return -1;
}