diff options
Diffstat (limited to 'libguile/vectors.c')
-rw-r--r-- | libguile/vectors.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/vectors.c b/libguile/vectors.c index 3f7217ab6..35c0e5d89 100644 --- a/libguile/vectors.c +++ b/libguile/vectors.c @@ -122,7 +122,7 @@ scm_vector_set_length_x (SCM vect, SCM len) return vect; } -GUILE_PROC (scm_vector_p, "vector?", 1, 0, 0, +SCM_DEFINE (scm_vector_p, "vector?", 1, 0, 0, (SCM x), "") #define FUNC_NAME s_scm_vector_p @@ -145,7 +145,7 @@ scm_vector_length (SCM v) SCM_REGISTER_PROC (s_list_to_vector, "list->vector", 1, 0, 0, scm_vector); -GUILE_PROC (scm_vector, "vector", 0, 0, 1, +SCM_DEFINE (scm_vector, "vector", 0, 0, 1, (SCM l), "") #define FUNC_NAME s_scm_vector @@ -194,7 +194,7 @@ scm_vector_set_x (SCM v, SCM k, SCM obj) } -GUILE_PROC (scm_make_vector, "make-vector", 1, 1, 0, +SCM_DEFINE (scm_make_vector, "make-vector", 1, 1, 0, (SCM k, SCM fill), "") #define FUNC_NAME s_scm_make_vector @@ -221,7 +221,7 @@ GUILE_PROC (scm_make_vector, "make-vector", 1, 1, 0, #undef FUNC_NAME -GUILE_PROC(scm_vector_to_list, "vector->list", 1, 0, 0, +SCM_DEFINE(scm_vector_to_list, "vector->list", 1, 0, 0, (SCM v), "") #define FUNC_NAME s_scm_vector_to_list @@ -237,7 +237,7 @@ GUILE_PROC(scm_vector_to_list, "vector->list", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC (scm_vector_fill_x, "vector-fill!", 2, 0, 0, +SCM_DEFINE (scm_vector_fill_x, "vector-fill!", 2, 0, 0, (SCM v, SCM fill_x), "") #define FUNC_NAME s_scm_vector_fill_x @@ -265,7 +265,7 @@ scm_vector_equal_p(SCM x, SCM y) } -GUILE_PROC (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0, +SCM_DEFINE (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0, (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2), "Vector version of @code{substring-move-left!}.") #define FUNC_NAME s_scm_vector_move_left_x @@ -288,7 +288,7 @@ GUILE_PROC (scm_vector_move_left_x, "vector-move-left!", 5, 0, 0, } #undef FUNC_NAME -GUILE_PROC (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0, +SCM_DEFINE (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0, (SCM vec1, SCM start1, SCM end1, SCM vec2, SCM start2), "Vector version of @code{substring-move-right!}.") #define FUNC_NAME s_scm_vector_move_right_x |