core: Remove add_environment.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 16:02:23 +0000 (17:02 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 16:02:23 +0000 (17:02 +0100)
* mes.c (add_environment): Remove.  Update callers.
  (scm_symbol_dot): New global.

mes.c
module/mes/scm.mes

diff --git a/mes.c b/mes.c
index 7e5ba3a5d67d2247945a77bcb99d5bf1e608f5d9..f5e766d0be7e8cd95bd8e065c9dbe374df34b627 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -84,6 +84,7 @@ scm scm_circular = {SPECIAL, "*circular*"};
 scm scm_label = {SPECIAL, "label"};
 scm scm_begin = {SPECIAL, "*begin*"};
 
+scm scm_symbol_dot = {SYMBOL, "*dot*"};
 scm scm_symbol_lambda = {SYMBOL, "lambda"};
 scm scm_symbol_begin = {SYMBOL, "begin"};
 scm scm_symbol_if = {SYMBOL, "if"};
@@ -1013,12 +1014,6 @@ acons (SCM key, SCM value, SCM alist)
   return cons (cons (key, value), alist);
 }
 
-SCM
-add_environment (SCM a, char const *name, SCM x)
-{
-  return acons (make_symbol (cstring_to_list (name)), x, a);
-}
-
 SCM
 gc_init_cells ()
 {
@@ -1065,8 +1060,9 @@ mes_symbols () ///((internal))
 #if BOOT
   a = acons (cell_symbol_label, cell_t, a);
 #endif
+  a = acons (cell_symbol_dot, cell_dot, a);
   a = acons (cell_symbol_begin, cell_begin, a);
-  a = add_environment (a, "sc-expand", cell_f);
+  a = acons (cell_symbol_sc_expand, cell_f, a);
   a = acons (cell_closure, a, a);
 
   return a;
@@ -1094,9 +1090,6 @@ mes_builtins (SCM a)
 #include "string.environment.i"
 #include "type.environment.i"
 
-  a = add_environment (a, "*dot*", cell_dot);
-  a = add_environment (a, "*foo-bar-baz*", cell_nil); // FIXME: some off-by one?
-
   return a;
 }
 
index 890204da5f2b4da5a717d57be0bc6a0648b4f451..328a569b26b19f8e3b8f55e648cbb9ee585b96a5 100644 (file)
 (define (char<=? a b) (<= (char->integer a) (char->integer b)))
 (define (char>=? a b) (>= (char->integer a) (char->integer b)))
 
+\f
+;; Vector
 (define (vector . rest) (list->vector rest))
 (define c:make-vector make-vector)
 (define (make-vector n . x)
   (if (null? x) (c:make-vector n)
       (list->vector (apply make-list (cons n x)))))
 
-(define (acons key value alist)
-  (cons (cons key value) alist))
-
 (define (assq-set! alist key val)
   (let ((entry (assq key alist)))
     (cond (entry (set-cdr! entry val)