/[guile]/guile/guile-core/libguile/vectors.c
ViewVC logotype

Diff of /guile/guile-core/libguile/vectors.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.59 by mvo, Sun Nov 25 15:21:06 2001 UTC revision 1.60 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 46  Line 46 
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"
# Line 101  SCM_DEFINE (scm_vector, "vector", 0, 0, Line 102  SCM_DEFINE (scm_vector, "vector", 0, 0,
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);

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26