[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog unif.c
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/libguile ChangeLog unif.c |
Date: |
Wed, 31 Jan 2001 07:18:48 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Mikael Djurfeldt <address@hidden> 01/01/31 07:18:48
Modified files:
guile-core/libguile: ChangeLog unif.c
Log message:
* unif.c (rapr1): Don't apply scm_uniform_vector_length on arrays.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1255&r2=1.1256
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/unif.c.diff?r1=1.97&r2=1.98
Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1255
guile/guile-core/libguile/ChangeLog:1.1256
--- guile/guile-core/libguile/ChangeLog:1.1255 Tue Jan 30 06:53:20 2001
+++ guile/guile-core/libguile/ChangeLog Wed Jan 31 07:18:47 2001
@@ -1,3 +1,7 @@
+2001-01-31 Mikael Djurfeldt <address@hidden>
+
+ * unif.c (rapr1): Don't apply scm_uniform_vector_length on arrays.
+
2001-01-29 Martin Grabmueller <address@hidden>
* struct.c (scm_make_vtable_vtable): Removed unnecessary "" from
Index: guile/guile-core/libguile/unif.c
diff -u guile/guile-core/libguile/unif.c:1.97
guile/guile-core/libguile/unif.c:1.98
--- guile/guile-core/libguile/unif.c:1.97 Fri Dec 8 09:32:56 2000
+++ guile/guile-core/libguile/unif.c Wed Jan 31 07:18:47 2001
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998, 2000, 2001 Free Software Foundation,
Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -2225,7 +2225,9 @@
rapr1 (SCM ra,scm_sizet j,scm_sizet k,SCM port,scm_print_state *pstate)
{
long inc = 1;
- long n = SCM_INUM (scm_uniform_vector_length (ra));
+ long n = (SCM_TYP7 (ra) == scm_tc7_smob
+ ? 0
+ : SCM_INUM (scm_uniform_vector_length (ra)));
int enclosed = 0;
tail:
switch SCM_TYP7 (ra)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile ChangeLog unif.c,
Mikael Djurfeldt <=