mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

(scm_array_handle_release): New, changed all uses of

Browse source 
scm_t_array_handle to properly call it.
(scm_vector_get_handle, scm_generalized_vector_get_handle):
Renamed former to latter, changed all uses.
This commit is contained in:
Marius Vollmer 2005-01-06 18:56:34 +00:00
parent fea99690f2
commit c8857a4db4
7 changed files with 49 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/random.c
View file

@ -446,6 +446,8 @@ vector_scale_x (SCM v, double c)
for (i = 0; i < len; i++, elts += inc)
*elts *= c;
scm_array_handle_release (&handle);
}
}
@ -479,6 +481,7 @@ vector_sum_squares (SCM v)
sum += x * x;
}
scm_array_handle_release (&handle);
}
return sum;
}
@ -545,7 +548,7 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
state = SCM_VARIABLE_REF (scm_var_random_state);
SCM_VALIDATE_RSTATE (2, state);
scm_vector_get_handle (v, &handle);
scm_generalized_vector_get_handle (v, &handle);
dim = scm_array_handle_dims (&handle);
if (scm_is_vector (v))
@ -562,6 +565,8 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
*elts = scm_c_normal01 (SCM_RSTATE (state));
}
scm_array_handle_release (&handle);
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME