core: Remove make_macro.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 14:47:52 +0000 (15:47 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 14:47:52 +0000 (15:47 +0100)
* module/mes/read-0.mes (<macro>): New global.
  (env:macro): Use it with make_cell instead of make_macro.
* mes.c (make_macro): Remove.
* type.c (car_): Rename from mes_car.
  (cdr_): Rename from mes_cdr.

mes.c
module/mes/read-0.mes
type.c

diff --git a/mes.c b/mes.c
index b4b1ec7c0de0f9613f3da83bbeccb05426efae2c..ab9c6b66ec0f84a9ed49f03ede1380c9a3700587 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -702,13 +702,6 @@ make_keyword (SCM s)
   return make_cell (tmp_num, STRING (x), 0);
 }
 
-SCM
-make_macro (SCM name, SCM x)
-{
-  g_cells[tmp_num].value = MACRO;
-  return make_cell (tmp_num, STRING (name), x);
-}
-
 SCM
 make_number (int x)
 {
index b3895577a02ea7376d488b51e51f9736dfa45140..699c42fe26e5dae37b29eddcb9a81a13eff5e45b 100644 (file)
@@ -43,6 +43,7 @@
           (set-cdr! (assq (quote *closure*) a) a+)
           (car a+)))
 
+  (env:define (cons (cons (quote <cell:macro>) 3) (list)) (current-module))
   (env:define (cons (cons (quote sexp:define) #f) (list)) (current-module))
   (env:define (cons (cons (quote env:macro) #f) (list)) (current-module))
   (env:define (cons (cons (quote cons*) #f) (list)) (current-module))
@@ -56,8 +57,7 @@
         (lambda (name+entry)
           (cons
            (cons (car name+entry)
-                 (make-macro (car name+entry)
-                             (cdr name+entry)))
+                 (make-cell <cell:macro> (core:car (car name+entry)) (cdr name+entry)))
            (list))))
 
   (set! cons*
diff --git a/type.c b/type.c
index c8d5933bb59851ac7bbe814f768cba79b6e7eb8a..d3889e4beb1133da69f6cf6b3a1d8c425da0ee3c 100644 (file)
--- a/type.c
+++ b/type.c
@@ -33,13 +33,13 @@ closure_p (SCM x)
 }
 
 SCM
-mes_car (SCM x)
+car_ (SCM x)
 {
   return CAR (x);
 }
 
 SCM
-mes_cdr (SCM x)
+cdr_ (SCM x)
 {
   return CDR (x);
 }