improved the slicing function
All checks were successful
continuous-integration/drone/push Build is passing

This commit is contained in:
2024-07-01 18:57:33 +09:00
parent 7007d9add0
commit 86ea4e7071
5 changed files with 51 additions and 23 deletions

View File

@ -1501,13 +1501,6 @@ hcl_oop_t hcl_allocwordobj (
hcl_oow_t len
);
hcl_oop_t hcl_instantiate (
hcl_t* hcl,
hcl_oop_class_t _class,
const void* vptr,
hcl_oow_t vlen
);
hcl_oop_t hcl_instantiatewithtrailer (
hcl_t* hcl,
hcl_oop_class_t _class,

View File

@ -2837,6 +2837,13 @@ HCL_EXPORT hcl_oop_t hcl_hatchnil (
hcl_t* hcl
);
HCL_EXPORT hcl_oop_t hcl_instantiate (
hcl_t* hcl,
hcl_oop_class_t _class,
const void* vptr,
hcl_oow_t vlen
);
HCL_EXPORT hcl_oop_t hcl_makecons (
hcl_t* hcl,
hcl_oop_t car,

View File

@ -1564,7 +1564,7 @@ static int feed_process_token (hcl_t* hcl)
}
case HCL_TOK_RPAREN: /* xlist (), qlist #() */
case HCL_TOK_RBRACK: /* bytearray #[], array [] */
case HCL_TOK_RBRACK: /* bytearray #b[], array #[] */
case HCL_TOK_RBRACE: /* dictionary #{}, block {} */
{
int oldflagv;