Miroirs/skint
1
0
Fork 0
mirror of https://github.com/false-schemers/skint.git synced 2024-12-26 21:58:51 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

3 minor hbsz fixes

Browse source
This commit is contained in:
ESL 2023-03-12 19:29:48 -04:00
parent 90944d25b8
commit 98217de003
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
i.c
View file

@ -781,7 +781,7 @@ define_instruction(listp) {
define_instruction(list) {
int i, n = fixnum_from_obj(*ip++);
hp_reserve(hbsz((2+1)*n));
hp_reserve(hbsz(2+1)*n);
for (ac = mknull(), i = n-1; i >= 0; --i) {
*--hp = ac; /* cdr */
*--hp = sref(i); /* car */
@ -1024,7 +1024,7 @@ define_instruction(vcat) {
define_instruction(vtol) {
obj l = mknull(); int n;
ckv(ac); n = vectorlen(ac);
hp_reserve(hbsz((2+1)*n));
hp_reserve(hbsz(2+1)*n);
while (n > 0) {
*--hp = l; *--hp = vectorref(ac, n-1);
*--hp = obj_from_size(PAIR_BTAG);
@ -1048,7 +1048,7 @@ define_instruction(ltov) {
define_instruction(stol) {
obj l = mknull(); int n;
cks(ac); n = stringlen(ac);
hp_reserve(hbsz((2+1)*n));
hp_reserve(hbsz(2+1)*n);
while (n > 0) {
*--hp = l; *--hp = obj_from_char(*stringref(ac, n-1));
*--hp = obj_from_size(PAIR_BTAG);