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

Replaced SCM_NEWCELL and SCM_NEWCELL2 with scm_alloc_cell and

Browse source 
scm_alloc_double_cell, respectively.
This commit is contained in:
Marius Vollmer 2001-11-25 15:21:07 +00:00
parent d3c0e81cc8
commit 16d4699b6b
28 changed files with 83 additions and 204 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/debug.c
View file

@ -539,13 +539,7 @@ SCM_DEFINE (scm_debug_object_p, "debug-object?", 1, 0, 0,
SCM
scm_make_debugobj (scm_t_debug_frame *frame)
{
register SCM z;
SCM_NEWCELL (z);
SCM_ENTER_A_SECTION;
SCM_SET_DEBUGOBJ_FRAME (z, frame);
SCM_SET_CELL_TYPE (z, scm_tc16_debugobj);
SCM_EXIT_A_SECTION;
return z;
return scm_alloc_cell (scm_tc16_debugobj, (scm_t_bits) frame);
}