core: Remove make_ref.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 15:31:56 +0000 (16:31 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 15:31:56 +0000 (16:31 +0100)
* mes.c (MAKE_REF): New macro.
  (make_ref): Remove.  Update callers.

mes.c

diff --git a/mes.c b/mes.c
index 03f5550ea570fccf495773cb7f6462244a588a6e..808a64e776115333294e44cd2a1263b3ff25a678 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -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;
 }