core: Remove make_string.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 15:38:07 +0000 (16:38 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 15:38:07 +0000 (16:38 +0100)
* mes.c (MAKE_STRING): New macro.
  (make_string): Remove.  Update callers.
* string.c: Update callers.

mes.c
string.c

diff --git a/mes.c b/mes.c
index 808a64e776115333294e44cd2a1263b3ff25a678..7e5ba3a5d67d2247945a77bcb99d5bf1e608f5d9 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -184,6 +184,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);
+#define MAKE_STRING(x) make_cell (tmp_num_ (STRING), x, 0);
 
 SCM display_ (FILE* f, SCM x);
 SCM vm_call (function0_t f, SCM p1, SCM p2, SCM a);
@@ -693,13 +694,6 @@ tmp_num2_ (int x)
   return tmp_num2;
 }
 
-SCM
-make_string (SCM x)
-{
-  g_cells[tmp_num].value = STRING;
-  return make_cell (tmp_num, x, 0);
-}
-
 SCM
 cstring_to_list (char const* s)
 {
index f3eb2b172b6f566ec13f0b904627f1f176fd1b71..1bc16298bf235584b0f3756e915afa0cb45c4089 100644 (file)
--- a/string.c
+++ b/string.c
@@ -21,7 +21,7 @@
 SCM
 string (SCM x) ///((arity . n))
 {
-  return make_string (x);
+  return MAKE_STRING (x);
 }
 
 SCM
@@ -35,13 +35,13 @@ string_append (SCM x) ///((arity . n))
       p = append2 (p, STRING (s));
       x = cdr (x);
     }
-  return make_string (p);
+  return MAKE_STRING (p);
 }
 
 SCM
 list_to_string (SCM x)
 {
-  return make_string (x);
+  return MAKE_STRING (x);
 }
 
 SCM
@@ -81,7 +81,7 @@ substring (SCM x) ///((arity . n))
     p = append2 (p, cons (MAKE_CHAR (VALUE (car (s))), cell_nil));
     s = cdr (s);
   }
-  return make_string (p);
+  return MAKE_STRING (p);
 }
 
 SCM
@@ -94,7 +94,7 @@ number_to_string (SCM x)
     p = cons (MAKE_CHAR (n % 10 + '0'), p);
     n = n / 10;
   } while (n);
-  return make_string (p);
+  return MAKE_STRING (p);
 }
 
 SCM
@@ -108,7 +108,7 @@ SCM
 symbol_to_string (SCM x)
 {
   assert (TYPE (x) == SYMBOL);
-  return make_string (STRING (x));
+  return MAKE_STRING (STRING (x));
 }
 
 SCM