From c28f06b1b7db5632732829d0aaa9c833cb135155 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 10 Jun 2017 19:24:26 -0700
Subject: Rename carray_get.

* ffi.c (carray_get): Renamed to carray_ptr.
(ffi_carray_put): Follow rename.

* ffi.h (carray_get): Declaration removed.
(carray_put): Declared.
---
 ffi.c | 4 ++--
 ffi.h | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ffi.c b/ffi.c
index aa4813df..a06a41a9 100644
--- a/ffi.c
+++ b/ffi.c
@@ -2562,7 +2562,7 @@ static val ffi_carray_get(struct txr_ffi_type *tft, mem_t *src, val self)
 static void ffi_carray_put(struct txr_ffi_type *tft, val carray, mem_t *dst,
                            val self)
 {
-  mem_t *p = carray_get(carray, tft->eltype, self);
+  mem_t *p = carray_ptr(carray, tft->eltype, self);
   *coerce(mem_t **, dst) = p;
 }
 
@@ -4397,7 +4397,7 @@ val length_carray(val carray)
   return if3(scry->nelem < 0, nil, num(scry->nelem));
 }
 
-mem_t *carray_get(val carray, val type, val self)
+mem_t *carray_ptr(val carray, val type, val self)
 {
   struct carray *scry = carray_struct_checked(carray);
   if (scry->eltype != type)
diff --git a/ffi.h b/ffi.h
index f0cd388b..bf46c8a6 100644
--- a/ffi.h
+++ b/ffi.h
@@ -93,7 +93,7 @@ val carray_own(val carray);
 val carray_free(val carray);
 val carray_type(val carray);
 val length_carray(val carray);
-mem_t *carray_get(val carray, val type, val self);
+mem_t *carray_ptr(val carray, val type, val self);
 val carray_vec(val vec, val type, val null_term_p);
 val carray_blank(val nelem, val type);
 val carray_buf(val buf, val type);
-- 
cgit v1.2.3