44 |
|
|
45 |
#include "libguile/_scm.h" |
#include "libguile/_scm.h" |
46 |
#include "libguile/vectors.h" |
#include "libguile/vectors.h" |
47 |
|
#include "libguile/lang.h" |
48 |
|
|
49 |
#include "libguile/validate.h" |
#include "libguile/validate.h" |
50 |
#include "libguile/weaks.h" |
#include "libguile/weaks.h" |
145 |
res = scm_make_weak_vector (SCM_MAKINUM (i), SCM_UNSPECIFIED); |
res = scm_make_weak_vector (SCM_MAKINUM (i), SCM_UNSPECIFIED); |
146 |
data = SCM_VELTS (res); |
data = SCM_VELTS (res); |
147 |
|
|
148 |
while (!SCM_NULLP (l)) |
while (!SCM_NULL_OR_NIL_P (l)) |
149 |
{ |
{ |
150 |
*data++ = SCM_CAR (l); |
*data++ = SCM_CAR (l); |
151 |
l = SCM_CDR (l); |
l = SCM_CDR (l); |