mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 00:30:21 +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/sort.c
View file

@ -93,6 +93,8 @@ SCM_DEFINE (scm_restricted_vector_sort_x, "restricted-vector-sort!", 4, 0, 0,
else
quicksort (velts + spos*vinc, len, vinc, cmp, less);
scm_array_handle_release (&handle);
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
@ -158,6 +160,8 @@ SCM_DEFINE (scm_sorted_p, "sorted?", 2, 0, 0,
}
}
scm_array_handle_release (&handle);
return result;
}
@ -509,6 +513,9 @@ SCM_DEFINE (scm_stable_sort_x, "stable-sort!", 2, 0, 0,
scm_merge_vector_step (vec_elts, temp_elts, cmp, less, 0, len-1, inc);
scm_array_handle_release (&temp_handle);
scm_array_handle_release (&vec_handle);
return items;
}
else