mes: Rename make-vector to core:make-vector.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 7 Jan 2018 15:26:36 +0000 (16:26 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 7 Jan 2018 15:26:36 +0000 (16:26 +0100)
* src/vector.c (make_vector_): Rename from make_vector.  Update callers.

module/mes/scm.mes
src/vector.c
tests/vector.test

index 550ec6c6e7b0f760d0844f9484b3ca573b990ffe..438568ade9ddaa0229daa898eecd36358d12b95b 100644 (file)
 \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)
+  (if (null? x) (core:make-vector n)
       (list->vector (apply make-list (cons n x)))))
 
 (define (vector-copy x)
index 5f433230a7722c33d0e0dc5b3fe6a00b5f50719e..479b773f90e4c1d3f31c51a25193ffe9448520a6 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-comment-start: "//";comment-end:""-*-
  * Mes --- Maxwell Equations of Software
- * Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
+ * Copyright © 2016,2017,2018 Jan Nieuwenhuizen <janneke@gnu.org>
  *
  * This file is part of Mes.
  *
@@ -19,7 +19,7 @@
  */
 
 SCM
-make_vector (SCM n)
+make_vector_ (SCM n)
 {
   int k = VALUE (n);
   VALUE (tmp_num) = TVECTOR;
@@ -67,7 +67,7 @@ SCM
 list_to_vector (SCM x)
 {
   VALUE (tmp_num) = VALUE (length (x));
-  SCM v = make_vector (tmp_num);
+  SCM v = make_vector_ (tmp_num);
   SCM p = VECTOR (v);
   while (x != cell_nil)
     {
index 78bf00b977589f931fc6bafe99de262327fe04a5..e510511dc81a15046a950a65b9392e2e4b9b0387 100755 (executable)
@@ -9,7 +9,7 @@ exit $?
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
-;;; Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016,2017,2018 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of Mes.
 ;;;
@@ -39,7 +39,7 @@ exit $?
 (pass-if "vector-length" (seq? (vector-length #(1)) 1))
 
 (when (not guile?)
-  (pass-if "c:make-vector" (sequal? (c:make-vector 3) #(*unspecified* *unspecified* *unspecified*)))
+  (pass-if "core:make-vector" (sequal? (core:make-vector 3) #(*unspecified* *unspecified* *unspecified*)))
   (pass-if "make-vector" (sequal? (make-vector 3) #(*unspecified* *unspecified* *unspecified*))))
 
 (pass-if "make-vector 2" (sequal? (make-vector 3 1) #(1 1 1)))