summaryrefslogtreecommitdiff
path: root/srfi/srfi-4.c
diff options
context:
space:
mode:
Diffstat (limited to 'srfi/srfi-4.c')
-rw-r--r--srfi/srfi-4.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/srfi/srfi-4.c b/srfi/srfi-4.c
index da3025e1d..c90b36675 100644
--- a/srfi/srfi-4.c
+++ b/srfi/srfi-4.c
@@ -68,6 +68,7 @@ typedef signed long long int_s64;
typedef float float_f32;
typedef double float_f64;
+
/* Smob type code for homogeneous numeric vectors. */
int scm_tc16_uvec = 0;
@@ -2138,6 +2139,8 @@ SCM_DEFINE (scm_list_to_f64vector, "list->f64vector", 1, 0, 0,
#undef FUNC_NAME
+/* Create the smob type for homogeneous numeric vectors and install
+ the primitives. */
void
scm_init_srfi_4 (void)
{
@@ -2148,3 +2151,5 @@ scm_init_srfi_4 (void)
#include "srfi/srfi-4.x"
#endif
}
+
+/* End of srfi-4.c. */