andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

M2: vector

This commit is contained in:
Jan Nieuwenhuizen 2019-10-30 14:15:33 +01:00
parent e743589eb0
commit e448654721
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/vector.c
View File

@ -21,6 +21,14 @@
#include "mes/lib.h"
#include "mes/mes.h"
#if __M2_PLANET__
#define M2_CELL_SIZE 12
// CONSTANT M2_CELL_SIZE 12
#else
#define M2_CELL_SIZE 1
// CONSTANT M2_CELL_SIZE 12
#endif
SCM
make_vector_ (long k, SCM e)
{
@ -108,7 +116,7 @@ list_to_vector (SCM x)
while (x != cell_nil)
{
copy_cell (p, vector_entry (car (x)));
p = p + 1;
p = p + M2_CELL_SIZE;
x = cdr (x);
}
return v;