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

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

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

revision 1.45 by mvo, Sun Nov 25 15:21:06 2001 UTC revision 1.46 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 44  Line 44 
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"
# Line 144  SCM_DEFINE (scm_weak_vector, "weak-vecto Line 145  SCM_DEFINE (scm_weak_vector, "weak-vecto
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);

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

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