46 |
#include "libguile/eq.h" |
#include "libguile/eq.h" |
47 |
#include "libguile/root.h" |
#include "libguile/root.h" |
48 |
#include "libguile/strings.h" |
#include "libguile/strings.h" |
49 |
|
#include "libguile/lang.h" |
50 |
|
|
51 |
#include "libguile/validate.h" |
#include "libguile/validate.h" |
52 |
#include "libguile/vectors.h" |
#include "libguile/vectors.h" |
102 |
SCM_VALIDATE_LIST_COPYLEN (1, l, i); |
SCM_VALIDATE_LIST_COPYLEN (1, l, i); |
103 |
res = scm_c_make_vector (i, SCM_UNSPECIFIED); |
res = scm_c_make_vector (i, SCM_UNSPECIFIED); |
104 |
data = SCM_VELTS (res); |
data = SCM_VELTS (res); |
105 |
while (!SCM_NULLP (l)) |
while (!SCM_NULL_OR_NIL_P (l)) |
106 |
{ |
{ |
107 |
*data++ = SCM_CAR (l); |
*data++ = SCM_CAR (l); |
108 |
l = SCM_CDR (l); |
l = SCM_CDR (l); |