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

core: Remove make_ref. 

* mes.c (MAKE_REF): New macro.
  (make_ref): Remove.  Update callers.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-23 16:31:56 +01:00
parent c4fe110d1e
commit faed68ed57
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mes.c
View File

@ -183,6 +183,7 @@ SCM r3 = 0; // param 3
#define MAKE_CHAR(n) make_cell (tmp_num_ (CHAR), 0, tmp_num2_ (n))
#define MAKE_NUMBER(n) make_cell (tmp_num_ (NUMBER), 0, tmp_num2_ (n))
#define MAKE_REF(n) make_cell (tmp_num_ (REF), n, 0);
SCM display_ (FILE* f, SCM x);
SCM vm_call (function0_t f, SCM p1, SCM p2, SCM a);
@ -692,13 +693,6 @@ tmp_num2_ (int x)
return tmp_num2;
}
SCM
make_ref (SCM x)
{
g_cells[tmp_num].value = REF;
return make_cell (tmp_num, x, x);
}
SCM
make_string (SCM x)
{
@ -778,7 +772,7 @@ vector_ref (SCM x, SCM i)
SCM
vector_entry (SCM x) {
if (TYPE (x) == PAIR || TYPE (x) == SPECIAL || TYPE (x) == STRING || TYPE (x) == SYMBOL || TYPE (x) == VECTOR) x = make_ref (x);
if (TYPE (x) == PAIR || TYPE (x) == SPECIAL || TYPE (x) == STRING || TYPE (x) == SYMBOL || TYPE (x) == VECTOR) x = MAKE_REF (x);
return x;
}