[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
contents of empty shared array
From: |
SZAVAI Gyula |
Subject: |
contents of empty shared array |
Date: |
Thu, 30 Nov 2006 14:20:57 +0100 |
User-agent: |
Mozilla/5.0 (Windows NT 5.1; hu-HU) Thunderbird/1.5 Mnenhy/0.7.4.666 |
guile-1.8-20061126
(let ((a (make-shared-array #() (lambda x #f) 0 2)))
(array-contents a))
==> #f
---------------
(let ((a (make-shared-array #() (lambda x #f) 0 2)))
(array-for-each display a)) ; and other scm_ramapc-based functions
Backtrace:
In current input:
3: {0}* (let* ((a (make-shared-array # # ...))) (display a) ...)
5: 1 [array-for-each #<primitive-generic display> #2:0:2()]
<unnamed port>:5:3: In procedure array-for-each in expression
(array-for-each di
splay a):
<unnamed port>:5:3: Value out of range: 0
ABORT: (out-of-range)
--- orig/libguile/unif.c 2006-11-30 10:25:50.101433600 +0100
+++ mod/libguile/unif.c 2006-11-30 13:03:16.244320000 +0100
@@ -900,6 +900,7 @@
{
SCM_I_ARRAY_V (ra) = make_typed_vector (scm_array_type (ra), 0);
scm_array_handle_release (&old_handle);
+ SCM_SET_ARRAY_CONTIGUOUS_FLAG (ra);
return ra;
}
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- contents of empty shared array,
SZAVAI Gyula <=