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

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

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

revision 1.135 by dirk, Mon Apr 21 01:35:33 2003 UTC revision 1.136 by dirk, Mon Apr 21 01:59:56 2003 UTC
# Line 2215  l2ra (SCM lst, SCM ra, unsigned long bas Line 2215  l2ra (SCM lst, SCM ra, unsigned long bas
2215      {      {
2216        while (n--)        while (n--)
2217          {          {
2218            if (SCM_IMP (lst) || SCM_NCONSP (lst))            if (!SCM_CONSP (lst))
2219              return 0;              return 0;
2220            ok = ok && l2ra (SCM_CAR (lst), ra, base, k + 1);            ok = ok && l2ra (SCM_CAR (lst), ra, base, k + 1);
2221            base += inc;            base += inc;
# Line 2228  l2ra (SCM lst, SCM ra, unsigned long bas Line 2228  l2ra (SCM lst, SCM ra, unsigned long bas
2228      {      {
2229        while (n--)        while (n--)
2230          {          {
2231            if (SCM_IMP (lst) || SCM_NCONSP (lst))            if (!SCM_CONSP (lst))
2232              return 0;              return 0;
2233            scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base));            scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base));
2234            base += inc;            base += inc;

Legend:
Removed from v.1.135  
changed lines
  Added in v.1.136

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